File Coverage

blib/lib/XML/Literal.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	34	34	100.0

package XML::Literal;

use 5.006;
use strict;
use warnings;
use File::Glob ();

$XML::Literal::VERSION = '0.02';

sub import {
    my $class       = shift;
    my $callback    = shift;

    no warnings 'redefine';
    *CORE::GLOBAL::glob = sub {
        if ($_[0] =~ m{^\s*<}) {
            # Looks like <  >
            goto &$callback;
        }
        elsif ($_[0] =~ m{/\w*\s*$}) {
            # Looks like  or ...\
            @_ = "<$_[0]>";
            goto &$callback;
        }
        else {
            # Looks like file globbing
            goto &File::Glob::glob;
        }
    };
}

1;

__END__