package Selenium2;
our $VERSION=0.01;

use 5.010;
use Moose;
use MooseX::NonMoose; 

 
use FindBin qw($Bin);
use lib ("$Bin/classes","$Bin/classes/browser");

use Test::WWW::Selenium;
use WWW::Selenium::Util qw/server_is_running/;
  
extends  'Test::WWW::Selenium';

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


sub buildServerLocation {
    # not: my $self = shift; ??

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



sub FOREIGNBUILDARGS {
    
    
    my $self = shift;


    
     $self->checkServer;

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

     $args{serverLocation} //= $self->buildServerLocation;



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

    return %args;
    
    
   
}



sub BUILD     {
    my $self = shift;

    
        
    $self->Browser::BUILD();

    $self->start;


}


sub DEMOLISH {
    my $self = shift;
    $self->stop;
    Browser->DEMOLISH;
     

}





sub checkServer {
    my $self = shift;
    
      if (server_is_running) {
         
         print "Selenium server running\n";
      }
      else {
        $self->startServer;
      }
    
}


sub startServer {
    my $self = shift;
    
    
    defined(my $pid=fork) or die "Cannot fork: $!";
    unless ($pid) {
        eval {
            exec 'java -jar '.$self->serverLocation;
        };
        die "Impossibile far partire il server selenium: $@\n;" if ($@
+);
    }
    
    sleep(60); #attendi 1 minuto perché il server parta.
    
no Moose;

__PACKAGE__->meta->make_immutable; 

1;
     
     
}
[download]