Mungle/Code/Ref.pm

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


package Data::Code::Ref;

use strict;
use warnings;

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


sub get_coderef {
  my $codepack = shift;
  my $method = shift;
  $codepack || return '[error]';
  $method ||= '';
  $method && ($codepack .= '::');
  return eval '\&' . $codepack . $method . ';';
}

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::Ref;
9
10			use strict;
11			use warnings;
12
13			require Exporter;
14			our @ISA = qw( Exporter );
15			our @EXPORT_OK = qw(
16			get_coderef
17			);
18
19
20			sub get_coderef {
21			my $codepack = shift;
22			my $method = shift;
23			$codepack \|\| return '[error]';
24			$method \|\|= '';
25			$method && ($codepack .= '::');
26			return eval '\&' . $codepack . $method . ';';
27			}
28
29			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26