view release on metacpan or  search on metacpan

lib/XML/Bits.pm  view on Meta::CPAN

} # stringify ##########################################################

=head2 T

A shortcut tag constructor.

  T{tag => [%atts], @content};

=cut

sub T (&) {
  my ($sub) = @_;
  my @what = $sub->();
  #warn "what: (@what)\n";
  foreach my $item (@what) {
    $item = __PACKAGE__->new('', $item) unless(ref($item));
  }
  return(__PACKAGE__->new(@what));
} # T ##################################################################

=head1 AUTHOR