File Coverage

blib/lib/For/Else.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package For::Else;

use strict;
use warnings;

use version 0.77;
our $VERSION = qv("v1.0.0");

use Filter::Simple;

my $parens_block;

$parens_block = qr{
  [(]
    (?>
      [^()]+ | (??{ $parens_block })
    )*
  [)]
}smx;

my $code_block;

$code_block = qr{
  {
    (?>
      [^{}]+ | (??{ $code_block })
    )*
  }
}smx;

FILTER_ONLY
  'code' => sub {
    1 while
    s{
      ( for(?:each)? [^(]* ($parens_block) \s*
        $code_block )                      \s*
      ( else                               \s*
        $code_block )
    }{
      if $2
      {
        $1
      }
      $3
    }smx;
  };

1;

__END__