29 lines
508 B
Plaintext
29 lines
508 B
Plaintext
|
<?_code
|
||
|
|
package Foo;
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $class = shift;
|
||
|
|
my ( $this, $that ) = @_;
|
||
|
|
bless {
|
||
|
|
this => $this || "default this",
|
||
|
|
that => $that || "default that",
|
||
|
|
}, $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub this { my $self = shift; $self->{this} = shift if @_; $self->{this} }
|
||
|
|
sub that { my $self = shift; $self->{that} = shift if @_; $self->{that} }
|
||
|
|
|
||
|
|
sub msg {
|
||
|
|
my $self = shift;
|
||
|
|
return "[This: ". $self->this . ", That: ". $self->that . "]";
|
||
|
|
}
|
||
|
|
_code?>
|
||
|
|
|
||
|
|
|
||
|
|
<?_code
|
||
|
|
my $f = new Foo "pony", "not yours";
|
||
|
|
$f->msg;
|
||
|
|
_code?>
|
||
|
|
|
||
|
|
|