File Coverage

blib/lib/XAO/DO/Web/SetArg.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition	5	9	55.5
subroutine	7	7	100.0
pod	1	1	100.0
total	41	46	89.1

=head1 NAME

XAO::DO::Web::SetArg - sets base object arguments

=head1 SYNOPSIS

Currently is only useful in XAO::Web site context.

=head1 DESCRIPTION

Sets argument in parent object.

To be used in situations like the following to set default values. Or in
general to set or modify current arguments.

Master template:

  <%Page path="/bits/image-template" NAME="abc"%>
  <%Page path="/bits/image-template" NAME="def" WIDTH=123%>
  <%Page path="/bits/image-template" NAME="efg" HEIGHT=432%>

/bits/image-template:

  <%SetArg name="WIDTH" value="999"%>
  <%SetArg name="HEIGHT" value="777"%>


Actual output would be:





I Because of extra new-line characters in the template after both
SetArg lines actual output would be slightly different. Pay attention to
this if your HTML code is space-sensitive.

By default it does not override existing values. Use non-zero "override"
argument to override.

=head1 METHODS

No publicly available methods except overriden display() method.

=cut

###############################################################################
package XAO::DO::Web::SetArg;
use strict;
use Error;
use XAO::Utils;
use XAO::Errors qw(XAO::DO::Web::SetArg);
use XAO::Objects;
use base XAO::Objects->load(objname => 'Web::Page');

our $VERSION='2.002';

###############################################################################

# Setting arguments. Actual merging is done in Page object. We just set
# merge_args here.
#
sub display ($;%) {
    my $self=shift;
    my $args=get_args(\@_);

    my $name=$args->{'name'} ||
        throw XAO::E::DO::Web::SetArg
              "display - pointless without 'name' argument";

    my $value=defined($args->{'value'}) ? $args->{'value'} : "on";

    my $parent=$self->{'parent'} ||
        throw $self 'display - SetArg is pointless when orphan';

    return if defined($parent->{'args'}->{$name}) && !$args->{'override'};

    $parent->{'merge_args'}->{$name}=$value;
}

###############################################################################
1;
__END__