%PDF-
%PDF-
Mini Shell
Mini Shell
package Excel::Writer::XLSX::Package::Core;
###############################################################################
#
# Core - A class for writing the Excel XLSX core.xml file.
#
# Used in conjunction with Excel::Writer::XLSX
#
# Copyright 2000-2019, John McNamara, jmcnamara@cpan.org
#
# Documentation after __END__
#
# perltidy with the following options: -mbl=2 -pt=0 -nola
use 5.008002;
use strict;
use warnings;
use Carp;
use Excel::Writer::XLSX::Package::XMLwriter;
our @ISA = qw(Excel::Writer::XLSX::Package::XMLwriter);
our $VERSION = '1.03';
###############################################################################
#
# Public and private API methods.
#
###############################################################################
###############################################################################
#
# new()
#
# Constructor.
#
sub new {
my $class = shift;
my $fh = shift;
my $self = Excel::Writer::XLSX::Package::XMLwriter->new( $fh );
$self->{_properties} = {};
$self->{_createtime} = [ gmtime() ];
bless $self, $class;
return $self;
}
###############################################################################
#
# _assemble_xml_file()
#
# Assemble and write the XML file.
#
sub _assemble_xml_file {
my $self = shift;
$self->xml_declaration;
$self->_write_cp_core_properties();
$self->_write_dc_title();
$self->_write_dc_subject();
$self->_write_dc_creator();
$self->_write_cp_keywords();
$self->_write_dc_description();
$self->_write_cp_last_modified_by();
$self->_write_dcterms_created();
$self->_write_dcterms_modified();
$self->_write_cp_category();
$self->_write_cp_content_status();
$self->xml_end_tag( 'cp:coreProperties' );
# Close the XML writer filehandle.
$self->xml_get_fh()->close();
}
###############################################################################
#
# _set_properties()
#
# Set the document properties.
#
sub _set_properties {
my $self = shift;
my $properties = shift;
$self->{_properties} = $properties;
}
###############################################################################
#
# Internal methods.
#
###############################################################################
###############################################################################
#
# _datetime_to_iso8601_date()
#
# Convert a gmtime/localtime() date to a ISO 8601 style "2010-01-01T00:00:00Z"
# date. Excel always treats this as a utc date/time.
#
sub _datetime_to_iso8601_date {
my $self = shift;
my $gmtime = shift || $self->{_createtime};
my ( $seconds, $minutes, $hours, $day, $month, $year ) = @$gmtime;
$month++;
$year += 1900;
my $date = sprintf "%4d-%02d-%02dT%02d:%02d:%02dZ", $year, $month, $day,
$hours, $minutes, $seconds;
}
###############################################################################
#
# XML writing methods.
#
###############################################################################
###############################################################################
#
# _write_cp_core_properties()
#
# Write the <cp:coreProperties> element.
#
sub _write_cp_core_properties {
my $self = shift;
my $xmlns_cp =
'http://schemas.openxmlformats.org/package/2006/metadata/core-properties';
my $xmlns_dc = 'http://purl.org/dc/elements/1.1/';
my $xmlns_dcterms = 'http://purl.org/dc/terms/';
my $xmlns_dcmitype = 'http://purl.org/dc/dcmitype/';
my $xmlns_xsi = 'http://www.w3.org/2001/XMLSchema-instance';
my @attributes = (
'xmlns:cp' => $xmlns_cp,
'xmlns:dc' => $xmlns_dc,
'xmlns:dcterms' => $xmlns_dcterms,
'xmlns:dcmitype' => $xmlns_dcmitype,
'xmlns:xsi' => $xmlns_xsi,
);
$self->xml_start_tag( 'cp:coreProperties', @attributes );
}
###############################################################################
#
# _write_dc_creator()
#
# Write the <dc:creator> element.
#
sub _write_dc_creator {
my $self = shift;
my $data = $self->{_properties}->{author} || '';
$self->xml_data_element( 'dc:creator', $data );
}
###############################################################################
#
# _write_cp_last_modified_by()
#
# Write the <cp:lastModifiedBy> element.
#
sub _write_cp_last_modified_by {
my $self = shift;
my $data = $self->{_properties}->{author} || '';
$self->xml_data_element( 'cp:lastModifiedBy', $data );
}
###############################################################################
#
# _write_dcterms_created()
#
# Write the <dcterms:created> element.
#
sub _write_dcterms_created {
my $self = shift;
my $date = $self->{_properties}->{created};
my $xsi_type = 'dcterms:W3CDTF';
$date = $self->_datetime_to_iso8601_date( $date );
my @attributes = ( 'xsi:type' => $xsi_type, );
$self->xml_data_element( 'dcterms:created', $date, @attributes );
}
###############################################################################
#
# _write_dcterms_modified()
#
# Write the <dcterms:modified> element.
#
sub _write_dcterms_modified {
my $self = shift;
my $date = $self->{_properties}->{created};
my $xsi_type = 'dcterms:W3CDTF';
$date = $self->_datetime_to_iso8601_date( $date );
my @attributes = ( 'xsi:type' => $xsi_type, );
$self->xml_data_element( 'dcterms:modified', $date, @attributes );
}
##############################################################################
#
# _write_dc_title()
#
# Write the <dc:title> element.
#
sub _write_dc_title {
my $self = shift;
my $data = $self->{_properties}->{title};
return unless $data;
$self->xml_data_element( 'dc:title', $data );
}
##############################################################################
#
# _write_dc_subject()
#
# Write the <dc:subject> element.
#
sub _write_dc_subject {
my $self = shift;
my $data = $self->{_properties}->{subject};
return unless $data;
$self->xml_data_element( 'dc:subject', $data );
}
##############################################################################
#
# _write_cp_keywords()
#
# Write the <cp:keywords> element.
#
sub _write_cp_keywords {
my $self = shift;
my $data = $self->{_properties}->{keywords};
return unless $data;
$self->xml_data_element( 'cp:keywords', $data );
}
##############################################################################
#
# _write_dc_description()
#
# Write the <dc:description> element.
#
sub _write_dc_description {
my $self = shift;
my $data = $self->{_properties}->{comments};
return unless $data;
$self->xml_data_element( 'dc:description', $data );
}
##############################################################################
#
# _write_cp_category()
#
# Write the <cp:category> element.
#
sub _write_cp_category {
my $self = shift;
my $data = $self->{_properties}->{category};
return unless $data;
$self->xml_data_element( 'cp:category', $data );
}
##############################################################################
#
# _write_cp_content_status()
#
# Write the <cp:contentStatus> element.
#
sub _write_cp_content_status {
my $self = shift;
my $data = $self->{_properties}->{status};
return unless $data;
$self->xml_data_element( 'cp:contentStatus', $data );
}
1;
__END__
=pod
=head1 NAME
Core - A class for writing the Excel XLSX core.xml file.
=head1 SYNOPSIS
See the documentation for L<Excel::Writer::XLSX>.
=head1 DESCRIPTION
This module is used in conjunction with L<Excel::Writer::XLSX>.
=head1 AUTHOR
John McNamara jmcnamara@cpan.org
=head1 COPYRIGHT
(c) MM-MMXIX, 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.
=head1 LICENSE
Either the Perl Artistic Licence L<http://dev.perl.org/licenses/artistic.html> or the GPL L<http://www.opensource.org/licenses/gpl-license.php>.
=head1 DISCLAIMER OF WARRANTY
See the documentation for L<Excel::Writer::XLSX>.
=cut
Zerion Mini Shell 1.0