16 |
sub _tag { |
sub _tag { |
17 |
my ( $tag_hash, $name, $sub_key ) = @_; |
my ( $tag_hash, $name, $sub_key ) = @_; |
18 |
confess "need hash as first argument" unless ( ref $tag_hash eq 'HASH' ); |
confess "need hash as first argument" unless ( ref $tag_hash eq 'HASH' ); |
19 |
$name = (grep { m/$name/i } keys %$tag_hash )[0]; |
$name = (grep { m/^(?:\w+:)*$name$/i } keys %$tag_hash )[0]; |
20 |
# $name =~ s/^\w+://; |
# $name =~ s/^\w+://; |
21 |
if ( defined $tag_hash->{$name} ) { |
if ( defined $tag_hash->{$name} ) { |
22 |
if ( ! defined $sub_key ) { |
if ( ! defined $sub_key ) { |
49 |
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
50 |
warn dump( $tag_name, $tag_hash, $context ); |
warn dump( $tag_name, $tag_hash, $context ); |
51 |
}, |
}, |
52 |
|
'ID' => sub { |
53 |
|
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
54 |
|
$state->{ID} = $tag_hash->{_content}; |
55 |
|
}, |
56 |
# |
# |
57 |
# Inform |
# Inform |
58 |
# |
# |