File: mcoder.pm

package info (click to toggle)
libclass-makemethods-perl 1.01-5
  • links: PTS, VCS
  • area: main
  • in suites: buster, sid, stretch
  • size: 1,864 kB
  • ctags: 516
  • sloc: perl: 10,495; makefile: 2
file content (116 lines) | stat: -rw-r--r-- 3,913 bytes parent folder | download
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