File Coverage

blib/lib/Text/QueryString.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	28	36	77.7

package Text::QueryString;
use strict;
use XSLoader;
our $VERSION;
BEGIN {
    $VERSION = '0.03';
    if ($ENV{PERL_TEXT_QUERYSTRING_BACKEND} eq 'PP') {
        require Text::QueryString::PP;
        no strict 'refs';
        *parse = \&Text::QueryString::PP::parse;
    } else {
        eval {
            XSLoader::load(__PACKAGE__, $VERSION);
            require constant;
            constant->import(BACKEND => "XS");
        };
        if ($@) {
            warn "Failed to require Text::QueryString XS backend: $@";
            require Text::QueryString::PP;
            no strict 'refs';
            *parse = \&Text::QueryString::PP::parse;
        }
    }
}

sub new { bless {}, shift }

1;

__END__