Catalyst::View::PNGTTGraph - PNG Graph View Component for Catalyst

Catalyst-View-PNGTTGraph documentation Contained in the Catalyst-View-PNGTTGraph distribution.

Index

Code Index:

NAME

Top

Catalyst::View::PNGTTGraph - PNG Graph View Component for Catalyst

SYNOPSIS

Top

In your View.

  package MyApp::View::PNGTTGraph;
  use base 'Catalyst::View::PNGTTGraph';

In your controller.

  sub pie_graph : Local {
      my @fields = qw(Jan Feb Mar);
      my @data_sales_02 = qw(12 45 21);

      $c->svgttg->create('Pie',
                         {'height' => '500',
                          'width' => '300',
                          'fields' => \@fields,
                         });
      $c->svgttg->graph_obj->add_data({
                                       'data' => \@data_sales_02,
                                       'title' => 'Sales 2002',
                                      });
  }

  sub end : Private {
      my ( $self, $c ) = @_;
      $c->forward($c->view('PNGTTGraph'));
  }

and see SVG::TT::Graph.

DESCRIPTION

Top

Catalyst::View::PNGTTGraph is Catalyst PNG view handler of SVG::TT::Graph.

METHODS

Top

new

This method makes method named $c->svgttg. $c->svgttg is an accessor to the object of Catalyst::View::SVGTTGraphObj. $c->svgttg uses $c->stash->{'Catalyst::View::SVGTTGraph'}.

process

Create PNG Graph

SEE ALSO

Top

Catalyst::View::SVGTTGraph, SVG::TT::Graph

AUTHORS

Top

Terence Monteiro, terencemo@cpan.org

COPYRIGHT AND LICENSE

Top

Copyright (c) by DeepRoot Linux Pvt Ltd. http://deeproot.co.in

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Catalyst-View-PNGTTGraph documentation Contained in the Catalyst-View-PNGTTGraph distribution. 
package Catalyst::View::PNGTTGraph;

use strict;
use warnings;
use Image::LibRSVG;
use base qw(Catalyst::View::SVGTTGraph);

my($Revision) = '$Id: PNGTTGraph.pm,v 1.1.1.1 2006/02/11 17:54:15 terence Exp $';

our $VERSION = '0.021';


#my $rsvg;

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    my $rsvg = new Image::LibRSVG();
    $self->{rsvg} = $rsvg;
    return $self;
}


sub process {
    my $self = shift;
    my $c = shift;
    
    my $go;
    die "Catalyst::View::PNGTTGraph : graph object is undefined !"
        unless($go = $c->svgttg->graph_obj);

    $go->compress(0) if ( $go->VERSION >= 0.13 );
    my $svg_graph = $c->svgttg->burn;

    my $rsvg = $self->{rsvg};
    $rsvg->loadImageFromString($svg_graph);
    my $png_graph = $rsvg->getImageBitmap('png');

    $c->res->header('Content-Type' => 'image/png');
    $c->res->body($png_graph);
    return 1;
}


1;