use MyApp::Person; 

my $user = $session->param('user'); # CGI::Session
my $name;

eval{$name = $user->full_name} if $user;

if ($@) {
	my $dump_user = Data::Dumper->Dump([$user], ['$user']);
	$dump_user =~ s|,|,<br />|g;

	my $package = __PACKAGE__;

	my @methods = qw( ... all the methods from MyApp::Person ... );
	my $check_methods;
	foreach my $method (@methods) {
		$check_methods .= sprintf "%s %s <br />", $user->can($method) ? 'CAN' : 'CANNOT', $method;
	}
	
	my $dummy = $MyApp::Person::dummy_true ? $MyApp::Person::dummy_true : 'FALSE';
	
	my $loaded_modules;
	foreach my $mod (sort values %INC) {
		$loaded_modules .= "$mod<br />";
	}

	my $ref_user = ref($user);

	die		"Current package: $package<br />
			Dummy variable: $dummy<br />
			\$user is a $ref_user<br />
			$check_methods<br />
			\@INC:<br /> 
			$loaded_modules<br />
			$dump_user<br />";
}
else {

[... do something with $name ...]

}

##</code><code>##

Current package: HTML::Mason::Commands

Dummy variable: 1
$user is a Icapb::Person
CANNOT new
CANNOT _init
CANNOT _check_user_type
CANNOT _load_cv
CANNOT ... etc etc etc

@INC:
...
/home/dave05/lib/perl5/mylib/MyApp/Person.pm
...