#!/usr/bin/perl use strict; use warnings; use CGI; use MyModule; my $cgi = new CGI; print $cgi->header; print "\n
"; print "Testing module
"; my $foo = MyModule->new( ResourcePath => '/opt/app/res', AssignedVal => '50', ); $foo->bar(); print "Testing we can access object, print value of module parameter: $foo->{AssignedVal}
"; print "Testing we can change an value (AssignedVal=100):
"; $foo->{AssignedVal}=100; $foo->bar(); $foo->browserEnv(); print "\n";