File Coverage

blib/lib/Template/Plugin/Dumpvalue.pm

Criterion	Covered	Total	%
statement	12	70	17.1
branch	0	4	0.0
condition			n/a
subroutine	4	19	21.0
pod	1	13	7.6
total	17	106	16.0

package Template::Plugin::Dumpvalue;

use base qw(Template::Plugin);

use Dumpvalue;
use IO::Scalar;
use strict;

our $VERSION = 1.01;

sub new {
    my $class = shift;
    my $context = shift;
    my $hash = shift;

    my $d = Dumpvalue->new();

    my $self = {
        d => $d,
        stash => $context->{STASH},
        output => '',
    };

    bless $self, $class;

    $self->set($hash);

    return $self;
}

sub dump_template_vars {
    my $self = shift;

    return $self->dumpValue($self->{stash});
}

sub grab_output {
    my $self = shift;
    my $code = shift;


    my $output;
    tie *DUMP, 'IO::Scalar', \$output;

    my $old_fh = select(DUMP);

    &{$code};

    select($old_fh);

    if($self->{inHTML}) {
        $output =~ s/
        $output =~ s/>/>/g;
        $output = "$output";
    }

    return $output;
}

sub dumpValue {
    my $self = shift;
    my $dump = shift;

    return $self->grab_output( sub {
        $self->{d}->dumpValue(\$dump);
    });
}

sub dumpValues {
    my $self = shift;
    my @values = @_;

    return $self->dumpValue(\@values);
}

sub dumpvars {
    my $self = shift;
    my @args = @_;

    return $self->grab_output( sub {
        $self->{d}->dumpvars(@args);
    });
}

sub set {
    my $self = shift;
    my $hash = shift;

    if(exists($hash->{inHTML})) {
        $self->{inHTML} = delete $hash->{inHTML};
    }

    $self->{d}->set(%$hash);

    return '';
}

sub get {
    my $self = shift;
    my @array = @_;

    my @values = $self->{d}->get(@array);

    return @values;
}

sub stringify {
    my $self = shift;

    return $self->{d}->stringify(@_);
}

sub compactDump {
    my $self = shift;

    $self->{d}->compactDump(@_);
    return;
}

sub veryCompact {
    my $self = shift;

    $self->{d}->veryCompact(@_);
    return;
}

sub set_quote {
    my $self = shift;

    $self->{d}->set_quote(@_);
    return;
}

sub set_unctrl {
    my $self = shift;

    $self->{d}->set_unctrl(@_);
    return;
}

1;

__END__