Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
go ahead... be a heretic
 
PerlMonks  

Re: Core module: Attribute::Handlers behaviour

by enigma (Novice)
on Oct 21, 2012 at 11:43 UTC ( #1000208=note: print w/ replies, xml ) Need Help??


in reply to Core module: Attribute::Handlers behaviour

Even I'm not getting, why it is not working for "Test 4" ...

Module.pm

package Module; use strict; use warnings; use Attribute::Handlers; #sub TRACE :ATTR(CODE) { # Test 1 #sub TRACE :ATTR(CODE,INIT) { # Test 2 #sub TRACE :ATTR(CODE,CHECK) { # Test 3 sub TRACE :ATTR(CODE,BEGIN) { # Test 4 my ($pkg, $sym, $ref, $attr, $data, $phase, $file, $line) = @_; *{ $sym } = sub { warn "$file($line) called with [@_]\n"; my( @rc )= &$ref; warn "$file($line): returning [ @rc ]\n"; } } sub new :TRACE{ my $instance = shift; my $class = ref($instance) || $instance; my $self = {}; return bless($self, $class); } END { } 1; __END__

Test.pl

#!/usr/local/bin/perl use strict; use warnings; my $module_to_load = 'Module'; eval "use $module_to_load;"; # Create object my $obj = Module->new(); print "REF: " . ref($obj) ."\n";

Results: Test 1: Code compiles and executes, but without ATTR support.

Test 2: Code compiles and executes, but without ATTR support.

Test 3: Code compiles and executes, but without ATTR support.

Test 4: Code throws and error msg as - Can't locate object method "new" via package "Module" at ./Test.pl line 10.

perl version: This is perl, v5.8.5 built for i386-linux-thread-multi

OS version: Linux <host> 2.6.9-67.EL #1 Wed Nov 7 13:41:13 EST 2007 i686 i686 i386 GNU/Linux

Thanks


Comment on Re: Core module: Attribute::Handlers behaviour
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1000208]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2014-04-21 11:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (493 votes), past polls