File Coverage

blib/lib/BW/XML/HTML.pm

Criterion	Covered	Total	%
statement	12	50	24.0
branch	0	16	0.0
condition	0	4	0.0
subroutine	4	10	40.0
pod	5	6	83.3
total	21	86	24.4

# BW::XML::HTML.pm
# Simple X/HTML output
#
# by Bill Weinman - http://bw.org/
# Copyright (c) 1995-2010 The BearHeart Group, LLC
#
# See POD for History
#

package BW::XML::HTML;
use strict;
use warnings;

use BW::Constants;
use base qw( BW::XML::Out );

our $VERSION = "1.5.1";
sub version { $VERSION }

sub select
{
    my ( $self, $name, $content, $attribs ) = @_;
    my $sn             = 'select';
    my $select_options = "\n";

    foreach my $h (@$content) {
        my $xparms = { indentLevel => 1, attribs => [] };
        my $text = $h->{text} || $h->{value} || '';
        my $value = $h->{value} || '';
        push( @{ $xparms->{attribs} }, { value => $value } );
        push( @{ $xparms->{attribs} }, { selected => 'selected' } ) if $h->{selected};
        $select_options .= $self->element( 'option', $text, $xparms );
    }

    $attribs = [] unless $attribs;
    push @$attribs, { name => $name };

    return $self->element(
        'select',
        $select_options,
        {
            xmlContent => TRUE,
            attribs    => $attribs
        } );
}

sub link
{
    my ( $self, $uri, $text, $attribs ) = @_;
    my $sn = 'link';

    $text    = '' unless $text;
    $attribs = [] unless $attribs;
    push @$attribs, { href => $uri };

    return $self->element( 'a', $text, { attribs => $attribs, noNewline => TRUE, xmlContent => TRUE, } );
}

sub input
{
    my ( $self, $type, $name, $value, $attribs ) = @_;
    my $sn = 'input';

    $type    = 'text' unless $type;
    $name    = ''     unless $name;
    $value   = ''     unless $value;
    $attribs = []     unless $attribs;
    push @$attribs, { type  => $type };
    push @$attribs, { name  => $name };
    push @$attribs, { value => $value };

    return $self->element( 'input', undef, { attribs => $attribs, noNewline => TRUE, emptyTag => TRUE } );
}

sub hidden
{
    my ( $self, $name, $value, $attribs ) = @_;
    my $sn = 'hidden';

    return $self->input( 'hidden', $name, $value, $attribs );
}

sub submit
{
    my ( $self, $name, $value, $attribs ) = @_;
    my $sn = 'submit';

    return $self->input( 'submit', $name, $value, $attribs );
}

1;

__END__