File Coverage

blib/lib/XML/Atom/Syndication.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch			n/a
condition			n/a
subroutine	6	9	66.6
pod			n/a
total	24	32	75.0

package XML::Atom::Syndication;
use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '0.9_08';

package XML::Atom::Syndication::Namespace;
use strict;

sub new {
    my $class = shift;
    my ($prefix, $uri) = @_;
    bless {prefix => $prefix, uri => $uri}, $class;
}

sub DESTROY { }

use vars qw( $AUTOLOAD );

sub AUTOLOAD {
    (my $var = $AUTOLOAD) =~ s!.+::!!;
    no strict 'refs';
    ($_[0], $var);
}

1;

__END__