view release on metacpan or  search on metacpan

lib/Jifty/View/Declare/CoreTemplates.pm  view on Meta::CPAN

            );
            $new->enter;
        }

        # Stuff the rendered region into the XML
        $writer->startTag( "fragment",
            id => Jifty->web->current_region->qualified_name );
        my %args = %{ Jifty->web->current_region->arguments };
        $writer->dataElement( "argument", $args{$_}, name => $_ )
          for sort keys %args;
        $writer->cdataElement( "content",
            Jifty->web->current_region->as_string );
        $writer->endTag();

        Jifty->web->current_region->exit while Jifty->web->current_region;
    }

    my %results = Jifty->web->response->results;
    for ( keys %results ) {
        $writer->startTag(
            "result",

share/web/templates/__jifty/webservices/xml  view on Meta::CPAN

<%init>
my $output = "";
my $writer = XML::Writer->new( OUTPUT => \$output, UNSAFE => 1 );
Jifty->web->response->content_type('text/xml; charset=utf-8');
$writer->xmlDecl( "UTF-8", "yes" );
$writer->startTag("response");

if (my $ext = Jifty->web->request->argument('_webservice_external_redirect')) {
    $writer->startTag("redirect");
    $writer->cdataElement(url=> $ext);
    $writer->endTag();
    $writer->endTag();
    Jifty->web->out($output);
    $m->abort;
}

FRAGMENT:
for my $fragment ( Jifty->web->request->fragments ) {
    # Set up the form if need be
    Jifty->web->form->_init;

share/web/templates/__jifty/webservices/xml  view on Meta::CPAN

        next FRAGMENT unless $new;

        $new->enter;
    }

    # Stuff the rendered region into the XML
    $writer->startTag( "fragment", id => Jifty->web->current_region->qualified_name );
    my %args = %{ Jifty->web->current_region->arguments };
    $writer->dataElement( "argument", $args{$_}, name => $_) for sort keys %args;
    if (Jifty->config->framework('ClientTemplate') && Jifty->web->current_region->client_cacheable) {
        $writer->cdataElement( "cacheable", Jifty->web->current_region->client_cache_content, type => Jifty->web->current_region->client_cacheable );
    }
    $writer->cdataElement( "content", Jifty->web->current_region->as_string );
    $writer->endTag();

    # Clean up region stack and form
    Jifty->web->current_region->exit while Jifty->web->current_region;
    Jifty->web->form->is_open(0);
}

my %results = Jifty->web->response->results;
for (keys %results) {
    $writer->startTag("result", moniker => $_, class => $results{$_}->action_class);