=[^=~] # = but not ==, nor =~
}x;
+my $PODSECT_REGEXP = qr{
+ ^=(cut|pod|head[1-4]|over|item|back|begin|end|for|encoding)\b
+}x;
sub new_from_file {
my $class = shift;
chomp( $line );
my $is_cut;
- if ( $line =~ /^=(.{0,3})/ ) {
+ if ( $line =~ /$PODSECT_REGEXP/o ) {
$is_cut = $1 eq 'cut';
$in_pod = !$is_cut;
}
if ( $in_pod ) {
- if ( $line =~ /^=head\d\s+(.+)\s*$/ ) {
+ if ( $line =~ /^=head[1-4]\s+(.+)\s*$/ ) {
push( @pod, $1 );
if ( $self->{collect_pod} && length( $pod_data ) ) {
$pod{$pod_sect} = $pod_data;