File Coverage

blib/lib/Template/Plugin/Filter/Base64.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	11	12	91.6
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	69	72	95.8

package Template::Plugin::Filter::Base64;
use 5.008001;
use strict;
use warnings;

use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );

use Encode;
use MIME::Base64 qw(encode_base64);
use HTML::Entities qw(encode_entities_numeric);

our $VERSION = "0.07";

sub init {
    my ($self) = @_;
    $self->{_DYNAMIC} = 1;
    $self->install_filter('b64');
    return $self;
}

sub filter {
    my ($self, $text, $args, $conf) = @_;

    $conf = $self->merge_config($conf);

    if ($conf->{trim}) {
        $text =~ s/^\s+//ms;
        $text =~ s/\s+$//ms;
    }
    if($conf->{safeurl}){
        return MIME::Base64::encode_base64url($text);
    }

    my @encode_args = ();


    if ($conf->{use_html_entity}) {
        my $charset = $conf->{use_html_entity};
        if($charset){
            $text = decode($charset, $text)
        }
        $text = Encode::encode('UTF-8',$text);
        Encode::_utf8_on($text);

        $text = encode_entities_numeric($text);

    }else{
        utf8::encode($text) if utf8::is_utf8($text);
    }
    if ($conf->{dont_broken_into_lines_each_76_char}) {
        push @encode_args, '';
    }

    unshift @encode_args, $text;

    my $encoded = &encode_base64(@encode_args);

    return $encoded
}

1;
__END__