File Coverage

blib/lib/Petal/Utils/Decode.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	4	100.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	1	0.0
total	44	47	93.6

package Petal::Utils::Decode;

use strict;
use warnings::register;

use Carp;

use base qw( Petal::Utils::Base );

use constant name    => 'decode';
use constant aliases => qw();

our $VERSION  = ((require Petal::Utils), $Petal::Utils::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.3 $ '))[2];

sub process {
  my $class = shift;
  my $hash  = shift;
  my $args  = shift || confess( "'decode' expects at least 1 variable (got nothing)!" );

  my @tokens = $class->split_args( $args );

  my $tvar = $class->fetch_arg($hash, shift @tokens);
  use Data::Dumper;
  while(@tokens) {
    my $a = $class->fetch_arg($hash, shift @tokens);
    my $b = $class->fetch_arg($hash, shift @tokens);
    return $a unless defined($b);
    return $b if ($tvar =~ /$a/);
  }
}



1;

__END__