File Coverage

blib/lib/XML/XPathScript/Template/Tag.pm

Criterion	Covered	Total	%
statement	26	34	76.4
branch	2	6	33.3
condition			n/a
subroutine	8	12	66.6
pod	3	3	100.0
total	39	55	70.9

package XML::XPathScript::Template::Tag;

use strict;
use warnings;

use Carp;
use Scalar::Util qw/ reftype /;

use overload '&{}'  => \&_overload_func,
             q{""}  => \&_overload_quote;

our $VERSION = '1.54';

our @ALLOWED_ATTRIBUTES = qw{
  pre post
  intro extro
  prechildren postchildren
  prechild testcode
  showtag
  postchild
  action
  rename
  content contents
};

sub new {
   return bless {}, shift;
}

sub get {
    my $self = shift;
    return wantarray ? map { $self->{$_} } @_
                     : $self->{$_[0]}
                     ;
}

sub set {
	my( $self, $attribute_ref ) = @_;

	for my $key ( keys %{$attribute_ref} ) {
        croak "attribute $key not allowed"
            if ! grep { $key eq $_ } @ALLOWED_ATTRIBUTES;

        $self->{$key} = $attribute_ref->{$key};

        # renaming implies showing the tag
        $self->{showtag} = 1 if $key eq 'rename';
	}

	return;
}

sub _overload_func {
    my $self = shift;
    return sub { $self->set( @_ ) }
}

sub _overload_quote {
    my $self = shift;
    return $self;
    return sub { print $self };
}

'end of XML::XPathScript::Template::Tag';

__END__