File Coverage

blib/lib/Text/ClearSilver/Compat.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	21	23	91.3

package Text::ClearSilver::Compat;
use strict;
use Text::ClearSilver;
use Symbol ();

no warnings qw(once);

$INC{'ClearSilver.pm'}          = __FILE__;
$INC{'Data/ClearSilver/HDF.pm'} = __FILE__;

package Text::ClearSilver::HDF;
# ClearSilver::HDF is a subclass of Text::ClearSilver::HDF
@ClearSilver::HDF::ISA = (__PACKAGE__);

*setValue  = \&set_value;
*getValue  = \&get_value;
*readFile  = \&read_file;
*readString= \&read_string;
*writeFile = \&write_file;
*getObj    = \&get_obj;
*objChild  = \&obj_child;
*getChild  = \&get_child;
*objValue  = \&obj_value;
*objName   = \&obj_name;
*objNext   = \&obj_next;

sub sortObj {
    my($self, $func_name) = @_;
    my $func_sym = Symbol::qualify_to_ref($func_name, scalar caller);
    $self->sort_obj(*{$func_sym}{CODE});
}

*setSymlink = \&set_symlink;
*removeTree = \&remove_tree;

# Data::ClearSilver::HDF is a subclass of Text::ClearSilver::HDF
@Data::ClearSilver::HDF::ISA = ('ClearSilver::HDF');

*hdf = \&new;

package Text::ClearSilver::CS;
# ClearSilver::CS is a subclass of Text::ClearSilver::CS
@ClearSilver::CS::ISA = (__PACKAGE__);

sub displayError{
    return 'Text::ClearSilver::Compat: displayError() is not supported';
}

*parseFile   = \&parse_file;
*parseString = \&parse_string;

1;
__END__