Lexical-Attributes
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/Lowest.pm view on Meta::CPAN
package Lowest;
use strict;
use warnings;
use LA_Base;
our @ISA = qw /LA_Base/;
#
# Ordinary Perl OO module.
#
sub new {
my $class = shift;
bless {} => $class;
}
sub key1 {
my $self = shift;
$$self {key1};
}
sub set_key1 {
my $self = shift;
$$self {key1} = shift;
}
sub key2 {
my $self = shift;
reverse $self -> SUPER::key2;
}
sub set_key2 {
my $self = shift;
$self -> SUPER::set_key2 (shift);
}
1;
__END__
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.678 second using v1.00-cache-2.02-grep-82fe00e-cpan-1925d2aa809 )