Lexical-Attributes
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
package Super;
use strict;
use warnings;
#
# Ordinary Perl OO module.
#
sub new {
my $class = shift;
bless {} => $class;
}
sub name {
my $self = shift;
$$self {name};
}
sub set_name {
my $self = shift;
$$self {name} = shift;
}
sub colour {
my $self = shift;
$$self {colour};
}
sub set_colour {
my $self = shift;
$$self {colour} = shift;
}
sub address {
my $self = shift;
$$self {address};
}
sub set_address {
my $self = shift;
$$self {address} = shift;
}
1;
__END__
view all matches for this distributionview release on metacpan - search on metacpan
( run in 4.187 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-cec75d87357c )