File Coverage

blib/lib/XML/MyXML/Util.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	4	8	50.0
condition	2	3	66.6
subroutine	4	5	80.0
pod	0	3	0.0
total	27	39	69.2

package XML::MyXML::Util;

use strict;
use warnings;

require Exporter;
our @ISA = ('Exporter');
our @EXPORT_OK = qw/ trim strip_ns debug /;

our $VERSION = "1.09";

sub trim {
    my $string = shift;

    if (defined $string) {
        $string =~ s/^\s+//;
        $string =~ s/\s+$//;
    }

    return $string;
}

sub strip_ns {
    my $string = shift;

    defined $string or return undef;

    my $num_colons = () = $string =~ /\:/g;
    if ($num_colons == 1 and $string =~ /.\:./) {
        $string =~ s/^.+\://;
    }

    return $string;
}

sub debug {
    my $thing = shift;
    require Data::Dumper;
    warn Data::Dumper::Dumper($thing) if $ENV{DEBUG};
}

1;