File Coverage

blib/lib/Tags/Element.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	8	8	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	37	37	100.0

package Tags::Element;

use base qw(Exporter);
use strict;
use warnings;

use Readonly;

# Constants.
Readonly::Array our @EXPORT_OK => qw(element);

# Version.
our $VERSION = 0.04;

# Common element.
sub element {
	my ($element, @data) = @_;

	my @attr;
	my @content;
	foreach my $ref (@data) {
		if (ref $ref eq 'HASH') {
			foreach my $key (sort keys %{$ref}) {
				push @attr, ['a', $key, $ref->{$key}];
			}
		} elsif (ref $ref eq 'ARRAY') {
			push @content, @{$ref};
		} else {
			push @content, ['d', $ref];
		}
	}

	return (
		['b', $element],
		@attr ? @attr : (),
		@content ? @content : (),
		['e', $element],
	);
}

1;

__END__