Select Code to Download

package My::UNIVERSAL;

use base qw(Class::Data::Inheritable);

1;

package My::UNIVERSAL;

use strict;
...
);

1;

package Creature;

use base 'My::UNIVERSAL';
...
    name   => 'Alice',
    gender => 'female',
} );

$VAR1 = bless( {
  gender => 'female',
  name   => 'Alice'
}, 'Creature' );

sub mk_accessors {
    my ( $class, @accessors ) = @_;
    foreach my $accessor (@accessors) {
...
        };
    }
}

sub area {
    my $self = shift;
    return $self->height * $self->width;
}

use Scalar::Util 'reftype';

sub new {
...
    }
    return $self;
}

$VAR1 = bless( {
  'Creature::gender' => 'female',
  'Creature::name'   => 'Alice'
}, 'Creature' );

$creature->name('Bob')
         ->gender('unknown');

my $creature = Creature->new( {
    name   => 'Alice',
    gender => 'female',
    foo    => 1,
} );

__PACKAGE__->mk_class_data('__data_key');

sub new {
...
    return unless exists $self->{ $self->__data_key }->{$attribute};
    goto $check_attribute;
}

package Creature;

use base 'My::UNIVERSAL';
...
    $self->_must_have('name');
    $self->_may_have('gender');
}

package IP::Address;

use base 'My::Universal';
...

my $ip = IP::Address->new({ ip => $some_ip });
print $ip->address;   # prints $some_ip

my $check_keys = sub {
    my $self = shift;
    my $data = delete $self->{ $self->__data_key };
...
    $self->$check_keys;
    return $self;
}

my $creature = Creature->new( {
    name   => 'Alice',
    gender => 'female',
...
} );

# Unknown keys to constructor:  (bar, foo)

package Tall::Square;

use Scalar::Util 'looks_like_number';
...
}

1;

package My::UNIVERSAL;

use strict;
...
}

1;