package MyModule;

use version; 
use warnings;
use strict;
use Carp;

use CGI;
use base qw( Exporter );
our $VERSION     = qv ('0.0.1');
our @ISA	 = qw (Exporter);
our @EXPORT_OK   = qw (new);
our %EXPORT_TAGS = ( DEFAULT => [qw (new) ],
			All  => [qw (new bar browserEnv)] );

sub new{ 

	my $class = shift;
	my $self = {};
	my %arg = @_;

	$self->{ResourcePath} = $arg{ResourcePath};
	$self->{AssignedVal} = $arg{AssignedVal};

	bless ($self, $class);

	return $self;



}



sub bar{

	my $self = shift;

	print "<p>Testing, called sub 'bar' within MyModule</p>";
	print "<p>Testing, ResourcePath: ".$self->{ResourcePath}."</p>";
	print "<p>Testing, AssignedVal: ".$self->{AssignedVal}."</p>";
	return;

}



sub browserEnv(){

	my $self = shift;

	my $cgi = new CGI;

	if($cgi->http('HTTP_REFERER')){

		print "<p>Testing, there was a referer: ".$cgi->http('HTTP_REFERER')."</p>";

	}else{

		print "<p>Testing, there was <b>no</b> referer</p>";

	}

	return;

}	

1;