Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^2: Problem with around BUILDARGS

by saintex (Scribe)
on Mar 28, 2011 at 10:58 UTC ( #895883=note: print w/ replies, xml ) Need Help??


in reply to Re: Problem with around BUILDARGS
in thread Problem with around BUILDARGS

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?


Comment on Re^2: Problem with around BUILDARGS
Select or Download Code
Re^3: Problem with around BUILDARGS
by stvn (Monsignor) on Mar 28, 2011 at 17:01 UTC

    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; }

    -stvn
      thank you for your answer!
      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

        I would need to see more code, but I suspect that something inside the 'serverLocation' accessor is trying to use the "nameOfTheClass" as if it was an object instance. Show some more context and perhaps I can help.

        -stvn

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (9)
As of 2014-08-01 23:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (51 votes), past polls