Mungle/Code/Symbol.pm

## ---------------------------------------------------------------------------
##  $Id: Object.pm,v 1.3 2003/01/20 16:54:22 joko Exp $
## ---------------------------------------------------------------------------
##  $Log$
## ---------------------------------------------------------------------------


package Data::Code::Symbol;

use strict;
use warnings;

require Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( 
  export_symbols
);


use Data::Code::Ref qw( get_coderef );

sub export_symbols {
  my $symbols = shift;
  my $mixinPackage = shift;
  my $callPackage = shift;
  $callPackage  ||= __PACKAGE__;
  foreach (@$symbols) {
    {
      no strict 'refs';
      my $newName = $mixinPackage . '::' . $_;
      *{$newName} = get_coderef($callPackage, $_);
    }
  }
}

1;
1	root	1.1	## ---------------------------------------------------------------------------
2			## $Id: Object.pm,v 1.3 2003/01/20 16:54:22 joko Exp $
3			## ---------------------------------------------------------------------------
4			## $Log$
5			## ---------------------------------------------------------------------------
6
7
8			package Data::Code::Symbol;
9
10			use strict;
11			use warnings;
12
13			require Exporter;
14			our @ISA = qw( Exporter );
15			our @EXPORT_OK = qw(
16			export_symbols
17			);
18
19
20			use Data::Code::Ref qw( get_coderef );
21
22			sub export_symbols {
23			my $symbols = shift;
24			my $mixinPackage = shift;
25			my $callPackage = shift;
26			$callPackage \|\|= __PACKAGE__;
27			foreach (@$symbols) {
28			{
29			no strict 'refs';
30			my $newName = $mixinPackage . '::' . $_;
31			*{$newName} = get_coderef($callPackage, $_);
32			}
33			}
34			}
35
36			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26