view release on metacpan or  search on metacpan

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

    my $in_global_destruction = defined ${^GLOBAL_PHASE}
        ? ${^GLOBAL_PHASE} eq 'DESTRUCT'
        : Devel::GlobalDestruction::in_global_destruction();
    for my $demolisher ( @{ $meta->{DEMOLISH} || [] } ) {
        my $e = do {
            local ( $?, $@ );
            eval { $demolisher->( $self, $in_global_destruction ) };
            $@;
        };
        no warnings 'misc'; # avoid (in cleanup) warnings
        die $e if $e;       # rethrow
    }
    return;
}

my $__XS = !$ENV{PERL_ONLY} && eval { require Class::XSAccessor; Class::XSAccessor->VERSION("1.19") };

# Accessors for durability
# param declaration, file lib/Acme/Marvel/CinematicUniverse/Character.pm, line 24
if ( $__XS ) {
    Class::XSAccessor->import(