File Coverage

blib/lib/Perl6/Variables.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package Perl6::Variables;
$VERSION = '0.01';
use Filter::Simple;

my $ident = qr/ [_a-z] \w* (?: :: [_a-z] \w* )* /ix;
my $listlikely = qr/ (?: \.\. | => | , | qw | \@ $ident \b [^[] ) /x;
my $alist = qr/ [^]]* $listlikely /x;
my $hlist = qr/ [^}]* $listlikely /x;

FILTER {
	$DB::single=1;
    my $text = "";
    pos = 0;
    while (pos($_)
	m/\G \$ ($ident) \.? \[ (?=$alist) /sxgc and
		$text .= qq/\@{\$$1}[/ and next;
	m/\G \$ ($ident) \.? \[ (?!$alist) /sxgc and
		$text .= qq/\$$1\->[/ and next;
	m/\G \$ ($ident) \.? \{ (?=$hlist) /sxgc and
		$text .= qq/\@{\$$1}{/ and next;
	m/\G \$ ($ident) \.? \{ (?!$hlist) /sxgc and
		$text .= qq/\$$1\->{/ and next;
	m/\G \@ ($ident) \[ (?=$alist) /sxgc and
		$text .= qq/\@$1\[/ and next;
	m/\G \@ ($ident) \[ (?!$alist) /sxgc and
		$text .= qq/\$$1\[/ and next;
	m/\G \% ($ident) \{ (?=$hlist) /sxgc and
		$text .= qq/\@$1\{/ and next;
	m/\G \% ($ident) \{ (?!$hlist) /sxgc and
		$text .= qq/\$$1\{/ and next;
	m/\G ([^\$\@%]+|.) /xgcs and
		$text .= $1;
    }
    $_ = $text . substr($_,pos);
};

__END__