note
enigma
<p>Even I'm not getting, why it is not working for "Test 4" ...</p>
<p>Module.pm</p>
<code>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__</code>
<p>Test.pl</p>
<code>
#!/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";
</code>
<p>
Results:
Test 1: Code compiles and executes, but without ATTR support.
</p>
<p>
Test 2: Code compiles and executes, but without ATTR support.</p>
<p>
Test 3: Code compiles and executes, but without ATTR support.</p>
<p>
Test 4: Code throws and error msg as -
<code>Can't locate object method "new" via package "Module" at ./Test.pl line 10.</code>
</p>
<p> perl version: This is perl, v5.8.5 built for i386-linux-thread-multi</p>
<p> OS version: Linux <host> 2.6.9-67.EL #1 Wed Nov 7 13:41:13 EST 2007 i686 i686 i386 GNU/Linux</p>
<p>Thanks</p>
1000101
1000101