File Coverage

blib/lib/DDG/Meta/Helper.pm

Criterion	Covered	Total	%
statement	30	32	93.7
branch	5	6	83.3
condition			n/a
subroutine	9	11	81.8
pod	0	1	0.0
total	44	50	88.0

package DDG::Meta::Helper;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Helper functions for easy access to important functions
$DDG::Meta::Helper::VERSION = '1016';
use strict;
use warnings;
use Carp qw( croak );
use Package::Stash;
use HTML::Entities;
use URI::Escape;


my %applied;

sub apply_keywords {
	my ( $class, $target ) = @_;

	return if exists $applied{$target};
	$applied{$target} = undef;

	my $stash = Package::Stash->new($target);


	$stash->add_symbol('&html_enc', sub { return (wantarray) ? map { encode_entities($_) } @_ : encode_entities(join '', @_) });


	$stash->add_symbol('&uri_esc', sub { return (wantarray) ? map { uri_escape($_) } @_ : uri_escape(join '', @_) });


    $stash->add_symbol('&true', sub { 1 });
    $stash->add_symbol('&false', sub { 0 });
}

1;

__END__