Commit | Line | Data |
df048d2c |
1 | #!/usr/bin/perl |
2 | |
3 | package Plain::Point3D; |
4 | |
5 | use strict; |
6 | use warnings; |
7 | |
8 | use base 'Plain::Point'; |
9 | |
10 | sub new { |
11 | my ( $class, %params ) = @_; |
12 | my $self = $class->SUPER::new( %params ); |
13 | $self->{z} = $params{z}; |
14 | return $self; |
15 | } |
16 | |
17 | sub z { |
18 | my ( $self, @args ) = @_; |
19 | |
20 | if ( @args ) { |
21 | $self->{z} = $args[0]; |
22 | } |
23 | |
24 | return $self->{z}; |
25 | } |
26 | |
27 | sub clear { |
28 | my $self = shift; |
29 | $self->SUPER::clear(); |
30 | $self->{z} = 0; |
31 | } |
32 | |
33 | __PACKAGE__; |
34 | |
35 | __END__ |
36 | |