#!/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";