#!/usr/local/bin/perl -w
use strict;
use Data::Dumper;

my $x = bless {}, 'Foo';
print Dumper(\%Foo::);
$x->import(qw(:blah foo whatever 123));
print Dumper(\%Foo::);
$x->almost_any_method_besides_import(qw(:blah foo whatever 123));
print Dumper(\%Foo::);