view release on metacpan or  search on metacpan

t/Lowest.pm  view on Meta::CPAN

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;
}

t/Super.pm  view on Meta::CPAN

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;
}