package Selenium;
our $VERSION=0.01;

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

use Test::WWW::Selenium;

extends  'Test::WWW::Selenium';


around BUILDARGS => sub {


	my $orig  = shift;
	my $class = shift;
	

	 my %args  = ( @_ == 1 ? %{ $_[0] } : @_ );
	
	 $args{host}//="localhost";
	 $args{port}//=4444;
	 $args{browser}//="*firefox";
	 $args{browser_url}//='http://wwww.google.com';
	 
	return $class->$orig(%args);
};


sub BUILD	 {
	my $self = shift;
	

	#$self->start;
}