File Coverage

blib/lib/LibWeb/HTML/Default.pm

Criterion	Covered	Total	%
statement	44	48	91.6
branch	3	6	50.0
condition	8	23	34.7
subroutine	11	13	84.6
pod	0	8	0.0
total	66	98	67.3

#=============================================================================
# LibWeb::HTML::Default -- `stdout' HTML display for libweb applications.

package LibWeb::HTML::Default;

# Copyright (C) 2000  Colin Kong
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#=============================================================================

# $Id: Default.pm,v 1.6 2000/07/19 20:31:57 ckyc Exp $

$VERSION = '0.02';

#-################################
# Use standard libraries.
use strict;
use Carp;
use vars qw($VERSION @ISA);

#-################################
# Use custom libraries.
require LibWeb::HTML::Standard;
require LibWeb::HTML::Error;
require LibWeb::Themes::Default;

#-################################
# Inheritance.
# Order of ISA is important here!
@ISA = qw( LibWeb::HTML::Standard LibWeb::Themes::Default LibWeb::HTML::Error );

#-################################
# Methods.
sub new {
    #
    # Params: _class_, _rc_file_ [, _error_obj_]
    #
    # - _class_ is the class/package name of this package, be it a string
    #   or a reference.
    # - _rc_file_ is the absolute path to the rc file for LibWeb.
    #
    # Usage: my $html = new LibWeb::HTML::Default( _rc_file_ );
    #
    # PLEASE do not edit anything in this ``new'' method unless you know
    # what you are doing.
    #
    my ($class, $Class, $self);
    $class = shift;
    $Class = ref($class) || $class;
    $self = $Class->SUPER::new( shift, shift || bless( {}, $Class ) );
    bless( $self, $Class );
}

sub DESTROY {}

sub _parse_construct {
    my ($ref, @construct_display);
    my $construct = $_[0];

    eval {
	foreach (@$construct) {
	    $ref = ref($_);
	    if ( $ref eq 'SCALAR' ) { push(@construct_display, $$_); }
	    elsif ( $ref eq 'ARRAY' ) { push(@construct_display, @$_); }
	    else { push(@construct_display, $_); }
	}
    };
    croak "$@" if ($@);

    return \@construct_display;
}

#==================================================================================
# ISA this class (LibWeb::HTML::Default) and override the following method to
# customize normal display.  To customize error message display, ISA this class
# (LibWeb::HTML::Default) and override LibWeb::Error::display_error().
#
sub display {
   #
   # Implementing base class method: LibWeb::HTML::Standard::display().
   # Params: -content=>, [ -sheader=>, -lpanel=>, -rpanel=>, -header=>, -footer=> ].
   #
   # -content, -sheader, -lpanel, -rpanel, -header and -footer must be an ARRAY
   # ref. to elements which are scalar/SCALAR ref/ARRAY ref.
   # If the the elements are ARRAY ref., then the elements in that ARRAY ref. must
   # be scalar and NOT ref.
   #
   # -content default is lines read from $self->content().
   # -sheader default is lines read from $self->sheader().
   # -lpanel default is lines read from $self->lpanel().
   # -rpanel default is lines read from $self->rpanel().
   # -header default is lines read from $self->header().
   # -footer default is lines read from $self->footer().
   #
   # Return a scalar ref. to a formatted page in HTML format for display
   # to Web client.
   #
   my ($self, $content, $sheader, $lpanel, $rpanel, $header, $footer,
       $content_display, $sheader_display, $lpanel_display, $rpanel_display,
       $header_display, $footer_display);
   $self = shift;
   ($content, $sheader, $lpanel, $rpanel, $header, $footer) =
     $self->rearrange(['CONTENT', 'SHEADER', 'LPANEL', 'RPANEL', 'HEADER',
			'FOOTER'], @_);

   $content ||= $self->content();
   $sheader ||= $self->sheader();
   $lpanel ||= $self->lpanel();
   $rpanel ||= $self->rpanel();
   $header ||= $self->header();
   $footer ||= $self->footer();

   $content_display = _parse_construct($content);
   $sheader_display = _parse_construct($sheader);
   $lpanel_display = _parse_construct($lpanel);
   $rpanel_display = _parse_construct($rpanel);
   $header_display = _parse_construct($header);
   $footer_display = _parse_construct($footer);

#
return \<



$self->{SITE_NAME}

@$header_display
@$sheader_display
 




142




 





 





 





 





 





 



  




143




 





 





 





 





 





 



   




144




 





 





 





 





 





 



  




145




 





 





 





 





 





 



  




146




 





 





 





 





 





 



 @$lpanel_display 




147




 





 





 





 





 





 



   




148




 





 





 





 





 





 



  




149




 





 





 





 





 





 



  




150




 





 





 





 





 





 



 @$content_display 




151




 





 





 





 





 





 



   




152




 





 





 





 





 





 



  




153




 





 





 





 





 





 



  




154




 





 





 





 





 





 



 @$rpanel_display 




155




 





 





 





 





 





 



   




156




 





 





 





 





 





 



  




157




@$lpanel_display



@$content_display



@$rpanel_display




@$footer_display

HTML
#
}

#=================================================================================
# Begin implementation for site's default header, sub header, left panel,
# right panel, content, footer and possibly other HTML constructs.
sub header {
    return [' '];
}

sub sheader {
    return [' '];
}

sub lpanel {
    return [' '];
}

sub content {
    return [' '];
}

sub rpanel {
    return [' '];
}

sub footer {
    return [' '];
}

1;
__DATA__