Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    $o->foo;
    is($warnings[0], $warnings, $name);
}

my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_me
+thods(
    as_is => ['Logger::log_warn']
);
sub import { goto &$import }