Hello Jerry
I tried to use the Attribute::Params::Validate in my program with your example
package Foo; {
use Object::InsideOut;
use Attribute::Params::Validate;
sub foo :method :Validate(bar => 1)
{
my $self = shift;
my %args = @_;
my $bar = $args{bar};
}
}
Foo::foo(bar => "toto");
1;
bash> perl ~/tmp/toto.txt
Use of inherited AUTOLOAD for non-method Attribute::Handlers::UNIVERSAL::MODIFY_CODE_ATTRIBUTES() i
+s deprecated at /usr/lib/perl/site/lib/site_perl/Object/InsideOut.pm line 505.
Can't locate class method 'Attribute::Handlers::UNIVERSAL::MODIFY_CODE_ATTRIBUTES' via package 'Att
+ribute::Handlers::UNIVERSAL' at /usr/lib/perl/site/lib/site_perl/Object/InsideOut.pm line 502
BEGIN failed--compilation aborted at /users/myself/tmp/toto.txt line 10.
bash>
What is wrong ?????
I have the last OIO, Attribute::Params::Validate and Attribute::Handlers package version
The code fails when calling the Attribute::Handlers::UNIVERSAL::MODIFY_CODE_ATTRIBUTES function in the InsideOut::MODIFY_CODE_ATTRIBUTES function
Is something wrong in my Perl environment ?
Thanks
Gaetan
(2)
]
