File Coverage

blib/lib/Class/Param/Encoding.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	5	6	83.3
condition	2	3	66.6
subroutine	8	9	88.8
pod	2	3	66.6
total	43	48	89.5

package Class::Param::Encoding;

use strict;
use warnings;
use base 'Class::Param::Decorator';

use Encode           qw[];
use Params::Validate qw[];

sub new {
    my $class = ref $_[0] ? ref shift : shift;

    my ( $decorated, $encoding ) = Params::Validate::validate_with(
        params  => \@_,
        spec    => [
            {
                type      => Params::Validate::OBJECT,
                isa       => 'Class::Param::Base',
                optional  => 0
            },
            {
                type      => Params::Validate::SCALAR,
                default   => 'UTF-8',
                optional  => 1,
                callbacks => {
                    'valid Encode encoding' => sub {
                        return Encode::find_encoding( $_[0] );
                    }
                }
            }
        ],
        called  => "$class\::new"
    );

    return bless( [ $decorated, Encode::find_encoding($encoding) ], $class );
}

sub encoding { return $_[0]->[1] }

sub get {
    my ( $self, $name ) = @_;

    my @values = ();

    foreach my $value ( $self->decorated->param($name) ) {

        if ( ref $value || Encode::is_utf8($value) ) {
            push @values, $value;
        }
        else {
            push @values, $self->encoding->decode( $value, Encode::FB_CROAK );
        }
    }

    return @values > 1 ? \@values : $values[0];
}

1;

__END__