File Coverage

blib/lib/XML/ExtOn/Context.pm

Criterion	Covered	Total	%
statement	52	54	96.3
branch	5	6	83.3
condition	6	10	60.0
subroutine	13	14	92.8
pod	0	8	0.0
total	76	92	82.6

package XML::ExtOn::Context;
use strict;
use warnings;
use Data::Dumper;
use Tie::UnionHash;
### install get/set accessors for this object.
for my $key ( qw/ __changes_hash __context_map _parent/ ) {
    no strict 'refs';
    *{ __PACKAGE__ . "::$key" } = sub {
        my $self = shift;
        $self->{$key} = $_[0] if @_;
        return $self->{$key};
      }
}
sub new {
    my $class = shift;
    $class = ref $class if ref $class;
    my $self = bless( {}, $class );
    my %args = @_;
    my $map = $args{parent_map} || {xmlns=>'http://www.w3.org/2000/xmlns/'};
    my %changes = ();
    $self->__changes_hash(\%changes);
    my %new_map = ();
    tie %new_map, 'Tie::UnionHash', $map, \%changes;
    $self->__context_map(\%new_map);
    #save parent
    $self->_parent( $args{parent});
    return $self;
}
=head2 sub_context

create sub_context

=cut
sub sub_context {
    my $self = shift;
    return __PACKAGE__->new( parent_map=>$self->get_map, parent=>$self )

}
sub parent {
    my $self = shift;
    return $self->_parent || $self;
}
=head2 get_changes

Get changed items hash

=cut

sub get_changes {
    my $self = shift;
    return $self->__changes_hash;
}

sub get_map {
    my $self = shift;
    return $self->__context_map;
}

sub get_uri {
    my $self = shift;
    my $prefix = shift||'';
    my $map = $self->get_map;
    unless ( $prefix) {
        return $map->{$prefix} || $map->{xmlns}
    }
    return  $map->{$prefix};
}

sub get_prefix {
    my $self = shift;
    my $uri = shift;
    return  { reverse %{ $self->get_map } }->{$uri};

}
sub declare_prefix {
    my $self = shift;
    my %map = @_;
    my $current_map = $self->get_map;
    while (my ( $prefix, $uri) = each %map ) {
        $current_map->{$prefix} = $uri;
    }
    $current_map;
}

1;