File Coverage

blib/lib/Raisin/Util.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	30	30	100.0

#!perl
#PODNAME: Raisin::Util
#ABSTRACT: Utility subroutine for Raisin.

use strict;
use warnings;

package Raisin::Util;
$Raisin::Util::VERSION = '0.94';
use Plack::Util;

sub make_tag_from_path {
    my $path = shift;
    my @c = (split '/', $path);
    return 'none' unless scalar @c;
    $c[-2] || $c[1];
}

sub iterate_params {
    my $params = shift;
    my $index = 0;

    return sub {
        $index += 2;
        ($params->[$index-2], $params->[$index-1]);
    };
}

1;

__END__