File Coverage

blib/lib/Petal/Utils/Printf.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	36	39	92.3

package Petal::Utils::Printf;

use strict;
use warnings::register;

use Carp;

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

use constant name    => 'printf';
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( "'printf' expects at least 2 arguments (got nothing)!" );

  my @tokens = $class->split_args( $args );
  my $format = shift @tokens;
  $format =~ s/\'//g;
  my @printf_args = ();
  foreach my $arg (@tokens) {
    push @printf_args, $class->fetch_arg($hash, $arg);
  }
  return sprintf($format, @printf_args);
}



1;

__END__