/usr/share/perl5/Spreadsheet/WriteExcel/Chart/External.pm is in libspreadsheet-writeexcel-perl 2.37-1.
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 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | package Spreadsheet::WriteExcel::Chart::External;
###############################################################################
#
# External - A writer class for Excel external charts.
#
# Used in conjunction with Spreadsheet::WriteExcel
#
# perltidy with options: -mbl=2 -pt=0 -nola
#
# Copyright 2000-2010, John McNamara, jmcnamara@cpan.org
#
# Documentation after __END__
#
require Exporter;
use strict;
use Spreadsheet::WriteExcel::Chart;
use vars qw($VERSION @ISA);
@ISA = qw(Spreadsheet::WriteExcel::Chart Exporter);
$VERSION = '2.37';
###############################################################################
#
# new()
#
#
sub new {
my $class = shift;
my $external_filename = shift;
my $self = Spreadsheet::WriteExcel::Chart->new( @_ );
$self->{_filename} = $external_filename;
$self->{_external_bin} = 1;
bless $self, $class;
$self->_initialize(); # Requires overridden initialize().
return $self;
}
###############################################################################
#
# _initialize()
#
# Read all the data into memory for the external binary style chart.
#
#
sub _initialize {
my $self = shift;
my $filename = $self->{_filename};
my $filehandle = FileHandle->new( $filename )
or die "Couldn't open $filename in add_chart_ext(): $!.\n";
binmode( $filehandle );
$self->{_filehandle} = $filehandle;
$self->{_datasize} = -s $filehandle;
$self->{_using_tmpfile} = 0;
# Read the entire external chart binary into the the data buffer.
# This will be retrieved by _get_data() when the chart is closed().
read( $self->{_filehandle}, $self->{_data}, $self->{_datasize} );
}
###############################################################################
#
# _close()
#
# We don't need to create or store Chart data structures when using an
# external binary, so we have a default close method.
#
sub _close {
my $self = shift;
return undef;
}
1;
__END__
=head1 NAME
External - A writer class for Excel external charts.
=head1 SYNOPSIS
This module is used to include external charts in Spreadsheet::WriteExcel.
=head1 DESCRIPTION
This module is used to include external charts in L<Spreadsheet::WriteExcel>. It is an internal module and isn't used directly by the end user.
It is semi-deprecated in favour of using "native" charts. See L<Spreadsheet::WriteExcel::Chart>.
For information on how to used external charts see the C<external_charts.txt> (or C<.pod>) in the C<external_charts> directory of the distro.
=head1 AUTHOR
John McNamara jmcnamara@cpan.org
=head1 COPYRIGHT
Copyright MM-MMX, John McNamara.
All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
|