File Coverage

blib/lib/XML/ExtOn/TieAttrsName.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	51	55	92.7

package XML::ExtOn::TieAttrsName;

#$id$

use strict;
use warnings;
use XML::ExtOn::TieAttrs;
use base 'XML::ExtOn::TieAttrs';

sub GetKeys {
    my $self = shift;
    return [ map { $_->{Name} } values %{ $self->get_by_filter } ];
}

sub create_attr {
    my $self     = shift;
    my $key      = shift;
    my %template =
      ( %{ $self->_template() }, @{ $self->_default() }, LocalName => $key );
    my ( $prefix )    = $key =~ /([^:]+):/;
    my $local_name = $key;
    $template{Name} = $prefix ? "$prefix:$local_name" : $local_name;
    $template{NamespaceURI} = $self->{context}->get_uri($prefix);
    return &XML::ExtOn::TieAttrs::attr_from_sax2( { 1 => \%template } );
}

sub get_by_filter {
    my $self        = shift;
    my $flocal_name = shift;
    my $ahash       = $self->_orig_hash;
    my %res         = ();
    my ( $field_name, $value ) = @{ $self->_default() };
    my $i = -1;
    foreach my $val (@$ahash) {
        $i++;
        if ( defined $flocal_name ) {
            next unless $val->{Name} eq $flocal_name;
        }
        $res{$i} = $val;
    }
    return \%res;
}
1;