From cfdd733c17cfa4f1a43b827a656e9e53cc2524ac Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Sat, 10 Nov 2007 17:53:53 +0000
Subject: * Remove unsed packages * Reorder exit routines

---
 lib/Class/MakeMethods/Emulator/mcoder.pm | 116 -------------------------------
 1 file changed, 116 deletions(-)
 delete mode 100644 lib/Class/MakeMethods/Emulator/mcoder.pm

(limited to 'lib/Class/MakeMethods/Emulator/mcoder.pm')

diff --git a/lib/Class/MakeMethods/Emulator/mcoder.pm b/lib/Class/MakeMethods/Emulator/mcoder.pm
deleted file mode 100644
index 84ef034..0000000
--- a/lib/Class/MakeMethods/Emulator/mcoder.pm
+++ /dev/null
@@ -1,116 +0,0 @@
-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
-- 
cgit v1.2.3