File Coverage

blib/lib/Text/InHTML.pm

Criterion	Covered	Total	%
statement	33	38	86.8
branch	5	14	35.7
condition	2	6	33.3
subroutine	7	7	100.0
pod	2	2	100.0
total	49	67	73.1

package Text::InHTML;

use strict;
use warnings;
use version;our $VERSION = qv('0.0.4');

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
    encode_plain encode_whitespace encode_perl encode_diff encode_html encode_css
    encode_sql   encode_mysql      encode_xml  encode_dtd  encode_xslt encode_xmlschema
);
our %EXPORT_TAGS = ('common' => \@EXPORT_OK);

sub import {
    my ($me, @gimme) = @_;
    my %seen;
    @seen{ @EXPORT_OK } = ();
    for my $func (@gimme) {
        next if exists $seen{ $func };
        push @EXPORT_OK, $func if $func =~ m{^encode_\w+$};
    }
}

sub encode_whitespace {
    my ($string, $tabs) = @_;

    $tabs = 4 if !defined $tabs || $tabs !~ m/^\d+$/;
    my $spaces = ' ' x $tabs;

    $string =~ s{\n}{\n}g;
    $string =~ s{\t}{$spaces}g;
    $string =~ s{[ ]{5}}{     }g;
    $string =~ s{[ ]{3}}{   }g;
    $string =~ s{[ ]{2}}{  }g;

    return $string;
}

sub encode_plain {
    my ($string, $tabs) = @_;
    require HTML::Entities;
    return Text::InHTML::encode_whitespace(
        HTML::Entities::encode($string, '<>&"'), $tabs
    );
}

sub AUTOLOAD {
    my($string, $syntax, $tabs) = @_;

    $syntax = {} if !defined $syntax || ref $syntax ne 'HASH';
    my ($format) = our $AUTOLOAD =~  m{encode_(\w+(-\w+)*)};

    die "Could not autoload $AUTOLOAD" if !$format; # only dies when they don't follow the rules
    $format =~ s{_}{-}g;

    if(eval { require Syntax::Highlight::Universal; }) {
        my $hl = Syntax::Highlight::Universal->new();
        $syntax->{'pre_proc'}->($hl) if ref $syntax->{'callbacks'} eq 'CODE';
        return Text::InHTML::encode_whitespace(
            $hl->highlight($format, $string, $syntax->{'callbacks'}), $tabs
        );
    }

    return Text::InHTML::encode_plain( $string );
}

1;

__END__