File Coverage

blib/lib/Acme/Globule/Range.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	14	14	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	54	54	100.0

package Acme::Globule::Range;
BEGIN {
  $Acme::Globule::Range::DIST = 'Acme-Globule';
}
BEGIN {
  $Acme::Globule::Range::VERSION = '0.004';
}
# ABSTRACT: Alternative range operator
use Regexp::Common;
use warnings;
use strict;

my $num = $RE{num}{int};

sub _range {
    my($first, $last, $step) = @_;
    #warn "$first..$last (step $step)\n";
    my @range;
    if ($step > 0) {
        while ($first <= $last) {
            push @range, $first;
            $first += $step;
        }
    } elsif ($step < 0) {
        while ($first >= $last) {
            push @range, $first;
            $first += $step;
        }
    } else {
        return [ $first ];
    }
    return \@range;
}

sub globule {
    my($self, $pattern) = @_;
    local $_ = $pattern;
    if (/^($num)\.\.($num)$/) {
        if ($1 < $2) {
            return _range($1, $2, 1);
        } elsif ($1 > $2) {
            return _range($1, $2, -1);
        } else {
            return [ $1 ];
        }
    } elsif (/^($num),($num)\.\.($num)$/) {
        return _range($1, $3, $2-$1);
    } elsif (/^($num)\.\.($num),($num)$/) {
        return _range($1, $3, $3-$2);
    } else {
        return;
    }
}


1;

__END__