File Coverage

blib/lib/XML/ASX.pm

Criterion	Covered	Total	%
statement	32	36	88.8
branch	4	8	50.0
condition	1	2	50.0
subroutine	8	9	88.8
pod	0	5	0.0
total	45	60	75.0

package XML::ASX;

use strict;
use vars qw($VERSION $AUTOLOAD %ASX_SLOTS);

use XML::ASX::File;

use overload '""' => \&xml;

$VERSION = '0.01';

%ASX_SLOTS = (
			 );

sub new {
  my $class = shift;
  return XML::ASX::File->new(@_);
}

sub add_param {
  my($self,$key,$value) = @_;
  $self->{param}->{$key} = $value;
  return $self->{param}->{$key};
}

sub each_param {
  my $self = shift;
  return $self->{param} ? %{$self->{param}} : ();
}

sub each_in_queue {
	my $self = shift;
	return $self->{queue} ? @{$self->{queue}} : ();
}

sub entag {
  my $self = shift;
  my $tag = shift;
  my $content = shift;
  my $attr = shift;
  my $closed = shift;

  my $output = '';
  $output .= "<$tag";

  if($attr){
	foreach(keys %$attr){
	  $output .= ' ' . $_ . '="' . $attr->{$_} . '"';
	}
  }

  $output .= "/>\n" and return $output if $closed;

  $output .= ">$content\n";

  return $output;
}

1;
__END__