http://qs321.pair.com?node_id=895883


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

[download]
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.

[download]

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

Replies are listed 'Best First'.
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;
}

    [download]

    -stvn
[reply]
[d/l]
[select]
      thank you for your answer!
[reply]
      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

      [download]
      Any help? Thank you
[reply]
[d/l]

        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
[reply]

In Section Seekers of Perl Wisdom