File Coverage

blib/lib/Alvis/NLPPlatform/XMLEntities.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	1	2	50.0
total	9	24	37.5

package Alvis::NLPPlatform::XMLEntities;
use strict;

use warnings;

our $VERSION=$Alvis::NLPPlatform::VERSION;

sub encode
{
    $_[0]=~s/&/&/g;
    $_[0]=~s/\"/"/g;
    $_[0]=~s/\'/'/g;
    $_[0]=~s/
    $_[0]=~s/>/>/g;
}




sub decode
{
    my $shift_offset = 0;

    $shift_offset += ($_[0]=~s/"/\"/g) * 5;
    $shift_offset += ($_[0]=~s/'/\'/g) * 5;
    $shift_offset += ($_[0]=~s/&/&/g) * 4;
    $shift_offset += ($_[0]=~s/</
    $shift_offset += ($_[0]=~s/>/>/g) * 3;
    return($shift_offset);
}


1;

__END__