view release on metacpan or  search on metacpan

lib/Acme/Marvel/CinematicUniverse/Character.pm.mite.pm  view on Meta::CPAN

}

# Accessors for intelligence
# param declaration, file lib/Acme/Marvel/CinematicUniverse/Character.pm, line 21
if ( $__XS ) {
    Class::XSAccessor->import(
        chained => 1,
        "getters" => { "intelligence" => "intelligence" },
    );
}
else {
    *intelligence = sub { @_ == 1 or Acme::Marvel::CinematicUniverse::Mite::croak( 'Reader "intelligence" usage: $self->intelligence()' ); $_[0]{"intelligence"} };
}

# Accessors for real_name
# param declaration, file lib/Acme/Marvel/CinematicUniverse/Character.pm, line 19
if ( $__XS ) {
    Class::XSAccessor->import(
        chained => 1,
        "getters" => { "real_name" => "real_name" },
    );
}
else {
    *real_name = sub { @_ == 1 or Acme::Marvel::CinematicUniverse::Mite::croak( 'Reader "real_name" usage: $self->real_name()' ); $_[0]{"real_name"} };
}

# Accessors for speed
# param declaration, file lib/Acme/Marvel/CinematicUniverse/Character.pm, line 23
if ( $__XS ) {
    Class::XSAccessor->import(
        chained => 1,
        "getters" => { "speed" => "speed" },
    );
}
else {
    *speed = sub { @_ == 1 or Acme::Marvel::CinematicUniverse::Mite::croak( 'Reader "speed" usage: $self->speed()' ); $_[0]{"speed"} };
}

# Accessors for strength
# param declaration, file lib/Acme/Marvel/CinematicUniverse/Character.pm, line 22
if ( $__XS ) {
    Class::XSAccessor->import(
        chained => 1,
        "getters" => { "strength" => "strength" },
    );
}
else {
    *strength = sub { @_ == 1 or Acme::Marvel::CinematicUniverse::Mite::croak( 'Reader "strength" usage: $self->strength()' ); $_[0]{"strength"} };
}


# See UNIVERSAL
sub DOES {
    my ( $self, $role ) = @_;
    our %DOES;
    return $DOES{$role} if exists $DOES{$role};
    return 1 if $role eq __PACKAGE__;
    if ( $INC{'Moose/Util.pm'} and my $meta = Moose::Util::find_meta( ref $self or $self ) ) {
        $meta->can( 'does_role' ) and $meta->does_role( $role ) and return 1;
    }
    return $self->SUPER::DOES( $role );
}

# Alias for Moose/Moo-compatibility
sub does {
    shift->DOES( @_ );
}

1;
}