/usr/share/perl5/Class/MakeMethods/Emulator/mcoder.pm is in libclass-makemethods-perl 1.01-4.
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 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | package Class::MakeMethods::Emulator::mcoder;
$VERSION = '0.05';
use Class::MakeMethods::Emulator '-isasubclass';
use Class::MakeMethods::Template '-isasubclass';
########################################################################
sub import {
my $class = shift;
( my $target = $class ) =~ s/^Class::MakeMethods::Emulator:://;
$class->_handle_namespace( $target, $_[0] ) and shift;
$class->make( @_ ) if ( scalar @_ );
}
sub new { 'Template::Hash::new --with_values' }
sub proxy { 'Template::Universal:forward_methods -target' }
sub generic { { '-import' => { 'Template::Hash:scalar' => '*' } } }
sub get { { interface => { default => { '*' =>'get' } } } }
sub set { { interface => { default => { 'set_*' =>'set' } } } }
sub undef { { interface => { default => { 'undef_*' =>'clear' } } } }
sub delete { { interface => { default => { 'delete_*'=>'hash_delete' } } } }
sub bool_set { { interface => { default => { 'set_*' =>'set_value' } },
'-import' => { 'Template::Hash:boolean' => '*' } } }
sub bool_unset { { interface => { default => { 'unset_*' =>'clear' } } } }
sub calculated { { interface => { default => { '*' =>'get_init' } },
params => { init_method=>'_calculate_*' } } }
########################################################################
foreach my $type ( qw( new get set proxy calculated ) ) {
$INC{"Class/MakeMethods/Emulator/mcoder/$type.pm"} =
$INC{"mcoder/$type.pm"} = __FILE__;
*{__PACKAGE__ . "::${type}::import"} = sub {
(shift) and (__PACKAGE__)->make( $type => [ @_ ] )
};
}
########################################################################
1;
__END__
package Class::MakeMethods::Emulator::mcoder::get;
@ISA = 'Class::MakeMethods::Emulator::mcoder';
$INC{"Class/MakeMethods/Emulator/mcoder/get.pm"} = __FILE__;
sub import { goto &Class::MakeMethods::Emulator::mcoder::sub_import }
package Class::MakeMethods::Emulator::mcoder::set;
@ISA = 'Class::MakeMethods::Emulator::mcoder';
$INC{"Class/MakeMethods/Emulator/mcoder/set.pm"} = __FILE__;
sub import { goto &Class::MakeMethods::Emulator::mcoder::sub_import }
package Class::MakeMethods::Emulator::mcoder::proxy;
@ISA = 'Class::MakeMethods::Emulator::mcoder';
$INC{"Class/MakeMethods/Emulator/mcoder/proxy.pm"} = __FILE__;
sub import { goto &Class::MakeMethods::Emulator::mcoder::sub_import }
1;
__END__
=head1 NAME
Class::MakeMethods::Emulator::mcoder - Emulate the mcoder module
=head1 SYNOPSIS
package MyClass;
use Class::MakeMethods::Emulator::mcoder
[qw(get set)] => [qw(color sound height)],
proxy => [qw(runner run walk stop)],
calculated => weight;
sub _calculate_weight { shift->ask_weight }
=head1 DESCRIPTION
This module emulates the functionality of the mcoder module, using
Class::MakeMethods to generate similar methods.
For example, the following lines are equivalent:
use mcoder 'get' => 'foo';
use mcoder::get 'foo';
use Class::MakeMethods::Template::Hash 'scalar --get' => 'foo';
You may use this module directly, as shown in the SYNOPSIS above,
or you may call C<use Class::MakeMethods::Emulator::mcoder
'-take_namespace';> to alias the mcoder namespace to this package,
and subsequent calls to the original package will be transparently
handled by this emulator. To remove the emulation aliasing, call
C<use Class::MakeMethods::Emulator::mcoder '-release_namespace'>.
The same mechanism is also available for the "sugar" subclasses.
B<Caution:> This affects B<all> subsequent uses of the mcoder module in
your program, including those in other modules, and might cause
unexpected effects.
=head1 SEE ALSO
See L<Class::MakeMethods> for general information about this distribution.
See L<Class::MakeMethods::Emulator> for more about this family of subclasses.
See L< mcoder> for documentation of the original module.
=cut
|