report-pie.png.tmpl

bugzilla的安装文件

#------------------------------------------------------------------------
# Compiled template generated by the Template Toolkit version 2.13
#------------------------------------------------------------------------

Template::Document->new({
    METADATA => {
        'modtime' => '1041839662',
        'name' => 'reports/report-pie.png.tmpl',
    },
    BLOCK => sub {
        my $context = shift || die "template sub called without context\n";
        my $stash   = $context->stash;
        my $output  = '';
        my $error;
        
        eval { BLOCK: {
    $output .=  "\n";
    $output .=  "\n";
    #line 23 "template\en\default\reports\report-pie.png.tmpl"
    $output .=  $context->process('global/field-descs.none.tmpl');
    $output .=  "\n";
    #line 26 "template\en\default\reports\report-pie.png.tmpl"
    $stash->set('col_field_disp', $stash->get(['field_descs', 0, $stash->get('col_field'), 0]) || $stash->get('col_field'));
    
    $output .=  "\n";
    #line 29 "template\en\default\reports\report-pie.png.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('null')
                  || $context->throw($context->error);
    
    #line 29 "template\en\default\reports\report-pie.png.tmpl"
    # USE
    $stash->set('graph',
                $context->plugin('GD.Graph.pie', [ $stash->get('width'), $stash->get('height') ]));
    #line 29 "template\en\default\reports\report-pie.png.tmpl"
    $output .=  $stash->get(['graph', 0, 'set', [ { 'title' => $stash->get('col_field_disp'), 'pie_height' => 20, 'suppress_angle' => 2, 'start_angle' => 180 } ]]);
    #line 29 "template\en\default\reports\report-pie.png.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('stdout', [ 1 ])
                  || $context->throw($context->error);
    
    $output .=  $stash->get(['graph', 0, 'plot', [ $stash->get(['data', 0, 0, 0]) ], 'png', 0]);
        
        &$filter($output);
    };
    
        
        &$filter($output);
    };
    
    
        } };
        if ($@) {
            $error = $context->catch($@, \$output);
            die $error unless $error->type eq 'return';
        }
    
        return $output;
    },
    DEFBLOCKS => {

    },
});