use warnings;
use strict;


use Data::Dumper;

package test;

sub new {
    my ($class) = @_;

    return bless {}, $class;
}


sub Package {
    return __PACKAGE__;
}


package main;

my $obj = test->new ();

    {
    no strict 'refs';
    print "Instance METHOD IS  " . Dumper( \%{ref ($obj)."::" }) ;
    }