view release on metacpan or  search on metacpan

t/base/verify.t  view on Meta::CPAN

    C_est_la_Vie_Qui_les_A_Menes_La  Nono
    Do_The_Music   Da_Zeuhl_Worts_Mekanik
    Thaud                        Wainsaht
    The_Last_Seven_Minutes Nebehr_Gudahtt
    Udu_Wudu                  Kohntarkosz |;

my $method     = q|verify|;
my $tag;
my( $mf, $wt ) = qw| {Pearl} {Tanya} |;

AFSMTS_class_wrap { debug_level => -t STDOUT ? 10 : 1 }, \%st;
isa_ok $bb, q|Acme::FSM|, q|constructed object|;

$tag = q|undefined|;
AFSMTS_method_wrap $method, undef, q|Hillary|, $wt, $mf, '';
like $@, qr.\Q{Hillary}({Tanya}): {Pearl} !isa defined., AFSMTS_croakson $tag;

my @tdata =
([ ''           =>               q|Matt| ],
 [ SCALAR       =>                 \$tag ], 
 [ HASH         => { Mr_Cola => q|Cobb| }],