#  $Id: Custom.pm,v 1.4 2008/03/17 19:26:25 jonas Exp $  -*-cperl-*-
package Para::Frame::Renderer::Custom;
#=====================================================================
#
# AUTHOR
#   Jonas Liljegren   <jonas@paranormal.se>
#
# COPYRIGHT
#   Copyright (C) 2007-2008 Jonas Liljegren.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
#=====================================================================

=head1 NAME

Para::Frame::Renderer::Custom - Present custom pages

=cut

use strict;
use Carp qw( confess );
#use CGI;

BEGIN
{
    our $VERSION  = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
    print "Loading ".__PACKAGE__." $VERSION\n";
}

use Para::Frame::Reload;
use Para::Frame::Utils qw( throw debug datadump );

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


# TODO: differ RENDERING from SENDING


=head2 new

=cut

sub new
{
    my( $this, $args ) = @_;
    my $class = ref($this) || $this;

    $args ||= {};

    my $rend = bless $args, $class;

    return $rend;
}


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

=head2 render_output

  $resp->render_output()

Burns the page and stores the result.

If the rendering failes, may change the template and URL. The new URL
can be used for another call to this method.

This method is called by L<Para::Frame::Request/after_jobs>.

Returns: the self, as a sender object

=cut

sub render_output
{
    my( $rend ) = @_;

    return $rend;
}

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

=head2 set_ctype

  $rend->set_ctype( $ctype )

Defaults to C<text/html> and charset C<UTF-8>

=cut

sub set_ctype
{
    $_[1]->set("text/plain; charset=UTF-8");
}

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

=head2 response

=cut

sub response
{
    return $_[0]->{'resp'};
}

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

=head2 req

=cut

sub req
{
    return $_[0]->{'req'};
}

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

=head2 site

=cut

sub site
{
    return $_[0]->{'site'};
}

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

=head2 language

=cut

sub language
{
    return $_[0]->{'language'};
}

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

=head2 url_path

=cut

sub url_path
{
    return $_[0]->{'url'};
}

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


1;

=head1 SEE ALSO

L<Para::Frame>

=cut