Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

51 lines (40 sloc) 0.975 kb
use Test;
plan 14;
my $r;
=begin pod
=begin code :allow<B>
=end code
=end pod
$r = $=pod[0].content[0];
isa_ok $r, Pod::Block::Code;
is $r.config<allow>, 'B';
=begin pod
=config head2 :like<head1> :formatted<I>
=end pod
$r = $=pod[1].content[0];
isa_ok $r, Pod::Config;
is $r.type, 'head2';
is $r.config<like>, 'head1';
is $r.config<formatted>, 'I';
=begin pod
=pod :number(42) :zebras :!sheep
=end pod
$r = $=pod[2].content[0];
is $r.config<number>, 42;
is $r.config<zebras>.Bool, True;
is $r.config<sheep>.Bool, False;
=begin pod
=for DESCRIPTION :title<presentation template>
= :author<John Brown> :pubdate(2011)
=end pod
$r = $=pod[3].content[0];
is $r.config<title>, 'presentation template';
is $r.config<author>, 'John Brown';
is $r.config<pubdate>, 2011;
=begin pod
=for table :caption<Table of contents>
foo bar
=end pod
$r = $=pod[4].content[0];
isa_ok $r, Pod::Block::Table;
is $r.config<caption>, 'Table of contents';
Jump to Line
Something went wrong with that request. Please try again.