File Coverage

blib/lib/RDF/Simple/Parser/Attribs.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	21	24	87.5

package RDF::Simple::Parser::Attribs;

use Carp;
use Data::Dumper;

# Use a hash to implement objects of this type:
use Class::MethodMaker [
                        scalar => [ qw( qnames x ) ],
                       ];

our
$VERSION = 1.31;

sub new {
    my ($class, $attrs) = @_;

    my $self = bless {}, ref $class || $class;
    while (my ($k,$v) = each %{$attrs}) {

        my ($p,$n) = ($v->{NamespaceURI},$v->{LocalName});
        $self->{$p.$n} = $v->{Value};
    }
    return $self;
}

1;