42 lines
801 B
Perl
42 lines
801 B
Perl
#!/usr/bin/perl
|
|
|
|
package MyClass;
|
|
|
|
sub new
|
|
{
|
|
my $class = shift;
|
|
my $self = {
|
|
_arg1 => shift,
|
|
};
|
|
# Print all the values just for clarification.
|
|
bless $self, $class;
|
|
return $self;
|
|
}
|
|
sub setarg1 {
|
|
my ( $self, $arg1 ) = @_;
|
|
$self->{_arg1} = $arg1 if defined($arg1);
|
|
return $self->{_arg1};
|
|
}
|
|
|
|
sub getarg1 {
|
|
my( $self ) = @_;
|
|
return $self->{_arg1};
|
|
}
|
|
|
|
1;
|
|
|
|
#my $obj1 = new MyClass "obj1";
|
|
#my $obj2 = MySubClass->new("obj2_1","obj2_2");
|
|
|
|
#print "a1:" . $obj1->getarg1() . "\n";
|
|
#$obj1->setarg1("arg1");
|
|
#print "a2:" . $obj1->getarg1() . "\n";
|
|
|
|
#print "b1:" . $obj2->getarg1() . "\n";
|
|
#$obj2->setarg1("arg1");
|
|
#print "b2:" . $obj2->getarg1() . "\n";
|
|
|
|
#print "b3:" . $obj2->getarg2() . "\n";
|
|
#$obj2->setarg2("arg2");
|
|
#print "b4:" . $obj2->getarg2() . "\n";
|