/usr/share/perl5/MooseX/NonMoose/InsideOut.pm is in libmoosex-nonmoose-perl 0.26-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | package MooseX::NonMoose::InsideOut;
BEGIN {
$MooseX::NonMoose::InsideOut::AUTHORITY = 'cpan:DOY';
}
{
$MooseX::NonMoose::InsideOut::VERSION = '0.26';
}
use Moose::Exporter;
# ABSTRACT: easy subclassing of non-Moose non-hashref classes
my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods(
class_metaroles => {
class => ['MooseX::NonMoose::Meta::Role::Class'],
constructor => ['MooseX::NonMoose::Meta::Role::Constructor'],
instance => ['MooseX::InsideOut::Role::Meta::Instance'],
},
install => [qw(import unimport)],
);
sub init_meta {
my $package = shift;
my %options = @_;
my $meta = Moose::Util::find_meta($options{for_class});
Carp::cluck('Roles have no use for MooseX::NonMoose')
if $meta && $meta->isa('Moose::Meta::Role');
$package->$init_meta(@_);
}
1;
__END__
=pod
=head1 NAME
MooseX::NonMoose::InsideOut - easy subclassing of non-Moose non-hashref classes
=head1 VERSION
version 0.26
=head1 SYNOPSIS
package Term::VT102::NBased;
use Moose;
use MooseX::NonMoose::InsideOut;
extends 'Term::VT102';
has [qw/x_base y_base/] => (
is => 'ro',
isa => 'Int',
default => 1,
);
around x => sub {
my $orig = shift;
my $self = shift;
$self->$orig(@_) + $self->x_base - 1;
};
# ... (wrap other methods)
no Moose;
# no need to fiddle with inline_constructor here
__PACKAGE__->meta->make_immutable;
my $vt = Term::VT102::NBased->new(x_base => 0, y_base => 0);
=head1 DESCRIPTION
=for Pod::Coverage init_meta
=head1 AUTHOR
Jesse Luehrs <doy@tozt.net>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Jesse Luehrs.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|