Вызов метода не определенного в классе - Perl - Ответ 4293241

=pod
 
=encoding utf-8
 
=head1 NAME
 
Moo - Minimalist Object Orientation (with Moose compatiblity)
 
=head1 SYNOPSIS
 
 package Cat::Food;
 
 use Moo;
 
 sub feed_lion {
   my $self = shift;
   my $amount = shift || 1;
 
   $self->pounds( $self->pounds - $amount );
 }
 
 has taste => (
   is => 'ro',
 );
 
 has brand => (
   is  => 'ro',
   isa => sub {
     die "Only SWEET-TREATZ supported!" unless $_[0] eq 'SWEET-TREATZ'
   },
 );
 
 has pounds => (
   is  => 'rw',
   isa => sub { die "$_[0] is too much cat food!" unless $_[0] < 15 },
 );
 
 1;
 
And elsewhere:
 
 my $full = Cat::Food->new(
    taste  => 'DELICIOUS.',
    brand  => 'SWEET-TREATZ',
    pounds => 10,
 );
 
 $full->feed_lion;
 
 say $full->pounds;

sub new {
  my $class = shift;
  unless (exists $NO_DEMOLISH{$class}) {
    unless ($NO_DEMOLISH{$class} = !$class->can('DEMOLISH')) {
      ($DEMOLISH_MAKER ||= do {
        require Method::Generate::DemolishAll;
        Method::Generate::DemolishAll->new
      })->generate_method($class);
    }
  }
  $NO_BUILD{$class} and
    return bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class);
  $NO_BUILD{$class} = !$class->can('BUILD') unless exists $NO_BUILD{$class};
  $NO_BUILD{$class}
    ? bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class)
    : do {
        my $proto = ref($_[0]) eq 'HASH' ? $_[0] : { @_ };
        bless({ %$proto }, $class)->BUILDALL($proto);
      };
}