17 |
isa_ok( $o, 'Frey::Pod' ); |
isa_ok( $o, 'Frey::Pod' ); |
18 |
diag dump( $o ) if $debug; |
diag dump( $o ) if $debug; |
19 |
|
|
20 |
ok( my $h = $o->markup('Frey::Pod'), 'markup' ); |
ok( my $h = $o->as_markup('Frey::Pod'), 'markup' ); |
21 |
diag $h if $debug; |
diag $h if $debug; |
22 |
|
|
23 |
like( $h, qr/Frey::Pod/, 'found me' ); |
like( $h, qr/Frey::Pod/, 'found me' ); |
24 |
|
|
25 |
ok( my @h = $o->markup('Frey::Pod'), 'markup' ); |
ok( my @h = $o->as_markup('Frey::Pod'), 'markup' ); |
26 |
diag dump( @h ) if $debug; |
diag dump( @h ) if $debug; |
27 |
isa_ok( \@h, 'ARRAY' ); |
isa_ok( \@h, 'ARRAY' ); |
28 |
|
|