File Coverage

blib/lib/XML/RSS/LibXML/MagicElement.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch	0	12	0.0
condition	0	12	0.0
subroutine	3	8	37.5
pod	3	4	75.0
total	15	66	22.7

# $Id$
#
# Copyright (c) 2005 Daisuke Maki
# All rights reserved.

package XML::RSS::LibXML::MagicElement;
use strict;
use overload
    bool => sub { 1 },
    '""' => \&toString,
    fallback => 1
;
use vars qw($VERSION);
$VERSION = '0.3105';

# Make UNIVERSAL::isa happy
sub isa { __PACKAGE__ eq ($_[1] || '') }

sub new
{
    my $class = shift;
    my %args  = @_;

    my %attrs;
    my @attrs;
    my $attrs = $args{attributes};
    if (ref($attrs) eq 'ARRAY') {
        %attrs = map { (
            $_->prefix && $_->prefix ne 'xmlns' ?
                sprintf('%s:%s', $_->prefix, $_->localname || '') :
                $_->localname || ''
            , $_->getData
        ) } @$attrs;
        @attrs = map { $_->getName } @$attrs;
    } elsif (ref($attrs) eq 'HASH') {
        %attrs = %$attrs;
        @attrs = keys %$attrs;
    } else {
        die "'attributes' must be an arrayref of XML::LibXML::Attr objects, or a hashref of scalars";
    }

    return bless {
        %attrs,
        _attributes => \@attrs,
        _content => $args{content},
    }, $class;
}

sub attributes
{
    my $self = shift;
    return wantarray ? @{$self->{_attributes}} : $self->{_attributes};
}

sub toString
{
    my $self = shift;
    return (defined $self->{_content} && length $self->{_content}) ?
        $self->{_content} :
        join('', map { $self->{$_} || '' } $self->attributes);
}

1;

__END__