Help for this page

Select Code to Download


  1. or download this
    sub _attr {
  my $self = shift;
  my $name = shift;
...
  $self->{"_$name"} = shift;
}
sub name { shift->_attr(name => @_); }
  2. or download this
    package Parent;
use attribute sub {
...
  # we have an ordinary hashref for the object
  return \$self->{"_$name"};
}, [qw(city name)];
  3. or download this
    package Child;
use base 'Parent';
...
  # object is arrayref, and the attributes are stored in element 0
  return \$self->[0]->{"_$name"};
};
  4. or download this
    package attribute;
use strict;
use warnings;
...
  }
}
1;