File Coverage

blib/lib/HTML/Entities/Recursive.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	8	12	66.6
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	48	53	90.5

package HTML::Entities::Recursive;
use strict;
use warnings;
our $VERSION = '0.01';

use Sub::Recursive;
use HTML::Entities ();

my $fac = recursive {
    my $this = shift;
    my $how  = pop;
    my @rest = @_;

    # See also http://www.stonehenge.com/merlyn/UnixReview/col30.html
    if (not ref $this) {
        HTML::Entities::Recursive->_do($this, @rest, $how);

    } elsif (ref $this eq "ARRAY") {
        [map $REC->($_, @rest, $how), @$this];

    } elsif (ref $this eq "HASH") {
        +{map { $_ => $REC->($this->{$_}, @rest, $how) } keys %$this};

    } elsif (ref $this eq 'SCALAR') {
        \($REC->($$this, @rest, $how));

    } else {
        ($this, @rest);
    }
};

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub _do {
    my $self = shift;
    my $text = shift;
    my $how  = pop;

    if ($how eq 'decode') {
        defined $text ? (HTML::Entities::decode($text, @_)) : ($text, @_);

    } elsif ($how eq 'encode') {
        defined $text ? (HTML::Entities::encode($text, @_)) : ($text, @_);

    } elsif ($how eq 'encode_numeric') {
        defined $text ? (HTML::Entities::encode_numeric($text, @_)) : ($text, @_);

    } else {
        Carp::croak("$how is unknown function");
    }
}

sub decode {
    shift; $fac->(@_, 'decode');
}

sub encode {
    shift; $fac->(@_, 'encode');
}

sub encode_numeric {
    shift; $fac->(@_, 'encode_numeric');
}

1;
__END__