view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
my $stack_frame = 0;
my $dump = 'yaml';
my $bases_map = {};
 
sub WWW; sub XXX; sub YYY; sub ZZZ;
 
# This line is here to convince "autouse" into believing we are autousable.
sub can {
    ($_[1] eq 'import' and caller()->isa('autouse'))
        ? \&Exporter::import        # pacify autouse's equality test
        : $_[0]->SUPER::can($_[1])  # normal case
}
 
# TODO
#
# Exported functions like field and super should be hidden so as not to
# be confused with methods that can be inherited.
#
 
sub new {
    my $class = shift;