Help for this page

Select Code to Download


  1. or download this
    package My::Class;
use Object::InsideOut;
...
my @QUACKBEHAVIOUR :Field( 'Accessor' => 'QUACKBEHAVIOR', 'Restricted'
+ => 1 );

1; # modules need to return true
  2. or download this
    package My::Class;
use Class::InsideOut ':std';
...
sub new { register( bless \(my $scalar), shift ) }

1; # modules need to return true