Re: Problem with around BUILDARGS

[stvn]

With MooseX::NonMoose, you want to use FOREIGNBUILDARGS and it should return the arguments for the extended NonMoose class, this version works.

sub FOREIGNBUILDARGS {
    my $class = shift;

     my %args  = ( @_ == 1 ? %{ $_[0] } : @_ );

     $args{host}//="localhost";
     $args{port}//=4444;
     $args{browser}//="*firefox";
     $args{browser_url}//='http://wwww.google.com';

    return %args;
}

[saintex]

Thank you very much!

[saintex]

It works,
but how can I use some class proprieties inside FOREIGNBUILDARGS ?
for example, If I try:


has 'serverLocation' => (is=>'ro',isa=>'Str',default=>"$Bin/lib/seleni
+um-server-standalone-2.0b2.jar");

sub FOREIGNBUILDARGS {
    my $self = shift;

print $self->serverLocation;

     my %args  = ( @_ == 1 ? %{ $_[0] } : @_ );

     $args{host}//="localhost";
     $args{port}//=4444;
     $args{browser}//="*firefox";
     $args{browser_url}//='http://wwww.google.com';

    return %args;
}

I have this error:



Can't use string ("Selenium2") as a HASH ref while "strict refs" in us
+e at accessor serverLocation defined at /home/saintex/workspace/perl_
+scripts/navigator/classes/Browser/Selenium2.pm line 18.


because the propriety "serverLocation" has not been read yet.
How can I fix it?

[stvn]

So the problem is that $self is not an object instance, but rather the class. One way to solve this is to use builder instead of default like so.

has 'serverLocation' => (is=>'ro',isa=>'Str',builder =>'buildServerLoc
+ation');

sub buildServerLocation {
    return "$Bin/lib/selenium-server-standalone-2.0b2.jar"
}


sub FOREIGNBUILDARGS {
    my $class = shift;

     my %args  = ( @_ == 1 ? %{ $_[0] } : @_ );

     $args{serverLocation} ||= $class->buildServerLocation;

     $args{host}//="localhost";
     $args{port}//=4444;
     $args{browser}//="*firefox";
     $args{browser_url}//='http://wwww.google.com';

    return %args;
}

[saintex]

thank you for your answer!

[saintex]

Hello,
I tried just now to use this solution in a real case...

But It works, until you don't have to call the proprieties in your code.

If you try to call $self->serverLocation anyway in your code you have that error:



Can't use string ("nameOfTheClass") as a HASH ref while "strict refs" 
+in use at accessor serverLocation defined at /home/saintex/workspace/
+perl_scripts/navigator/classes/Browser/Selenium2.pm

Any help? Thank you