#! /usr/bin/perl -w
use strict;
use 5.010;
use Perl6::Perldoc;
use strict;
use warnings;
use Test::More tests=>37;
my (@from_handle, @from_scalar, @from_array);
BEGIN {
is 0+@DATA, 3 => 'Correct number of DATA blocks';
@from_handle = <DATA>;
@from_scalar = split /\n/, $DATA;
@from_array = map { split /\n/ } @DATA;
chomp @from_handle;
chomp @from_scalar;
chomp @from_array;
}
sub check_all_three {
my ($target) = @_;
is $target, shift(@from_scalar) => "'$target' from \$DATA";
is $target, shift(@from_array) => "'$target' from \@DATA";
is $target, shift(@from_handle) => "'$target' from \*DATA";
}
=DATA 1.1
1.2
1.3
=for test
this is a test
for (1..9) {
=begin Foo
=begin Bar
A comment
=end Bar
=end Foo
ok 1 => 'Loop functioning correctly';
}
check_all_three('1.1');
check_all_three('1.2');
check_all_three('1.3');
check_all_three('2.1');
check_all_three('2.2 is data too');
check_all_three('2.3');
check_all_three('3.1');
check_all_three('=Not pod');
check_all_three('3.3');
=for DATA 2.0
2.1
2.2 is data too
2.3
=config head1 :numbered
print "\n";
=END
=begin DATA 3.0
3.1
=Not pod
3.3
=end DATA
=head1 NAME
try.pl - [description here]
=head1
VERSION
This documentation refers to try.pl version 0.0.1
=for head1 :!numbered
USAGE
try.pl [options]
=head1 REQUIRED ARGUMENTS
=begin nested
None
=end nested
=head1 OPTIONS