/usr/share/perl5/Jifty/Plugin/Chart/Renderer/Chart.pm is in libjifty-plugin-chart-perl 1.01+dfsg-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | use strict;
use warnings;
package Jifty::Plugin::Chart::Renderer::Chart;
use base qw/ Jifty::Plugin::Chart::Renderer /;
use Jifty::YAML;
=head1 NAME
Jifty::Plugin::Chart::Renderer::Chart - A chart renderer using PNG charts
=head1 DESCRIPTION
This is the default chart renderer used by the L<Jifty::Plugin::Chart> plugin. It works by rendering an IMG tag in the HTML output, which then points to a URL which, when dispatched, retrieves the stored configuration and renders the chart using the L<Chart> package.
=head1 METHODS
=head2 init
Adds the F<chart_img_behaviour.js> script to those loaded.
=cut
sub init {
Jifty->web->add_javascript('chart_img_behaviour.js');
}
=head2 render
Implemented the L<Jifty::Plugin::Chart::Renderer/render> method interface.
=cut
sub render {
my $self = shift;
my %args = @_;
# Conversion from generic types to Chart types
my %types = (
'bars' => 'Bars',
'composite' => 'Composite', # non-standard
'direction' => 'Direction', # non-standard
'errorbars' => 'ErrorBars', # non-standard
'horizontalbars' => 'HorizontalBars',
'lines' => 'Lines',
'linespoints' => 'LinesPoints',
'mountain' => 'Mountain', # non-standard
'pareto' => 'Pareto', # non-standard
'pie' => 'Pie',
'points' => 'Points',
'split' => 'Split', # non-standard
'stackedbars' => 'StackedBars',
);
# Make sure the type is ready to be used as a Chart class name
$args{type} = $types{ $args{type} } || undef;
# Save the data for retrieval from the session later
my $chart_id = Jifty->web->serial;
my $session_id = 'chart_' . $chart_id;
Jifty->web->session->set( $session_id => Jifty::YAML::Dump(\%args) );
# Build up the chart tag
my $img;
$img = qq{<img};
$img .= qq{ src="/chart/chart/$chart_id"};
$img .= qq{ class="@{[ join ' ', @{ $args{class} } ]}"};
my @styles;
push @styles, "width:$args{width}" if defined $args{width};
push @styles, "height:$args{height}" if defined $args{height};
$img .= qq{ style="@{[ join ';', @styles ]}"} if @styles;
$img .= qq{/>};
# Output the <img> tag and include the chart's configuration key
Jifty->web->out($img);
# Make sure we don't return anything that will get output
return;
}
=head1 SEE ALSO
L<Jifty::Plugin::Chart>, L<Jifty::Plugin::Chart::Renderer>
=head1 AUTHOR
Andrew Sterling Hanenkamp C<< <andrew.hanenkamp@boomer.com> >>
=head1 COPYRIGHT AND LICENSE
Copyright 2007 Boomer Consulting, Inc.
This is free software and may be modified and distributed under the same terms as Perl itself.
=cut
1;
|