File Coverage

blib/lib/Apache/AxKit/Language/XSP/ObjectTaglib.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

# $Id: /local/CPAN/Apache-AxKit-Language-XSP-ObjectTaglib/lib/Apache/AxKit/Language/XSP/ObjectTaglib.pm 1518 2008-03-08T22:17:31.628142Z claco  $
package Apache::AxKit::Language::XSP::ObjectTaglib;
use strict;
use warnings;
use vars qw/@ISA $VERSION @EXPORT/;
use AxKit;
use Apache::AxKit::Language::XSP;
$VERSION = "0.09000";
use Exporter;
@ISA = ('Apache::AxKit::Language::XSP', 'Exporter');

@EXPORT = qw(parse_start parse_end);

my %stacks;

sub parse_char {
    my ($e, $text) = @_;

    $text =~ s/^\s*//;
    $text =~ s/\s*$//;

    return '' unless $text;

    $text =~ s/\|/\\\|/g;
    return ". q|$text|";
};

sub parse_start {
    my ($e, $tag, %attr) = @_;

    AxKit::Debug(5, "ObjectTaglib: parse_start called on tag '$tag'");
    $tag =~ s/-/_/g;
    AxKit::Debug(5, "ObjectTaglib: tag name cleaned to '$tag'");


    my $ns = $e->{Current_Element}->{NamespaceURI};
    AxKit::Debug(5, "ObjectTaglib: current namespace is '$ns'");

    my $where = $Apache::AxKit::Language::XSP::tag_lib{ $ns };
    AxKit::Debug(5, "ObjectTaglib: current taglib is '$where'");

    push @{$stacks{$where}}, $tag;
    my ($safe_where, @specification);
    {
        no strict 'refs'; @specification = @{"${where}::specification"};
        die "No specification found in $where!" unless @specification;
    }

    ($safe_where = lc $where) =~ s/::/_/g;
    AxKit::Debug(5, "ObjectTaglib: taglib cleaned to '$safe_where'");

    if ($AxKit::Cfg->DebugLevel() > 0) {
        for (keys %attr) {
            AxKit::Debug(5, "ObjectTaglib: tag attribute $_=" . $attr{$_});
        };
    };

    s/\|//g for %attr;

    AxKit::Debug(5, 'ObjectTaglib: looping through specification');
    for (@specification) {
        AxKit::Debug(5, "ObjectTaglib: specification item '" . $_->{tag} . "'");
        if ($tag ne $_->{tag}) {
            AxKit::Debug(5,
            "ObjectTaglib: skipping tag specification '$tag'!=" . $_->{tag});
            next;
        };

        if (defined $_->{context} ) {
            AxKit::Debug(5, "ObjectTaglib: context '" . $_->{context} . "'");
            next unless $_->{context} eq $stacks{$where}->[-2];
        }

        if ($_->{type} eq 'special') {
            AxKit::Debug(5, "ObjectTaglib: calling start method '" .
                $_->{start} . "'");
            return $_->{start}->($e, $tag, %attr)
        };

        if ($_->{type} eq "loop") {
            $e->manage_text(0);
            my $iterator = $_->{iterator};
            my $target = $_->{target};
            return <
for my \$_xsp_${safe_where}_$iterator (\$_xsp_${safe_where}_${target}->$tag) {
EOF
        }
        $e->start_expr($tag) unless $_->{type} eq "as_xml";
        return '';
    }
    die "Unknown start tag $tag\n";
}

sub parse_end {
    my ($e, $tag, %attr) = @_;

    AxKit::Debug(5, "ObjectTaglib: parse_end called on tag '$tag'");
    $tag =~ s/-/_/g;
    AxKit::Debug(5, "ObjectTaglib: tag name cleaned to '$tag'");

    my $where = $AxKit::XSP::TaglibPkg;
    AxKit::Debug(5, "ObjectTaglib: current namespace is '$where'");

    pop @{$stacks{$where}};
    my ($safe_where, @specification);
    { no strict 'refs'; @specification = @{"${where}::specification"}; }

    ($safe_where = lc $where) =~ s/::/_/g;
    AxKit::Debug(5, "ObjectTaglib: taglib cleaned to '$safe_where'");

    if ($AxKit::Cfg->DebugLevel() > 0) {
        for (keys %attr) {
            AxKit::Debug(5, "ObjectTaglib: tag attribute $_=" . $attr{$_});
        };
    };

    for (@specification) {
        next unless $tag eq $_->{tag};
        if (defined $_->{context} ) {
            next unless $_->{context} eq $stacks{$where}->[-1];
        }

        return $_->{end}->($e, $tag, %attr)
            if $_->{type} eq 'special';

        my $target = $_->{target};

        if ($_->{type} eq "loop") {
            $e->manage_text(0);
            return "}";
        } elsif ($_->{type} eq "as_xml") {
            $e->manage_text(0);
            my $util_include_expr = {
                        Name => 'include-expr',
                        NamespaceURI => $AxKit::XSP::Util::NS,
                        Attributes => [],
                    };
            my $xsp_expr = {
                        Name => 'expr',
                        NamespaceURI => $AxKit::XSP::Core::NS,
                        Attributes => [],
                    };
            $e->start_element($util_include_expr);
            $e->start_element($xsp_expr);
            $e->append_to_script(<
    ''.\$_xsp_${safe_where}_$target->$tag().
    ''
EOF
            $e->end_element($xsp_expr);
            $e->end_element($util_include_expr);
            return ''
        }

        $e->append_to_script(
            "(\$_xsp_${safe_where}_$target->" . ($_->{key} || $tag) . "()" .
            ($_->{notnull} && '|| \'\'').");"
        );

        $e->end_expr();
        return "";
    }
    die "Unknown end tag $tag\n";
}
1;
__END__