File Coverage

blib/lib/Pinwheel/View/Wrap/Scalar.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	4	0.0
total	29	33	87.8

package Pinwheel::View::Wrap::Scalar;

use strict;
use warnings;

use Carp qw(croak);

our $AUTOLOAD;
our @WRAP_METHODS = qw(strip upcase downcase length size);


sub strip
{
    my $s = $_[1];
    $s =~ s/^\s+|\s+$//g;
    return $s;
}

sub upcase
{
    return uc($_[1]);
}

sub downcase
{
    return lc($_[1]);
}

sub length
{
    return CORE::length($_[1]);
}

*size = *length;

sub AUTOLOAD
{
    my ($name);

    $name = $AUTOLOAD;
    $name =~ s/.*:://;
    croak "Bad scalar method '$name'" unless $name =~ /[A-Z]/;
}


1;