1#!/usr/local/bin/perl -w
2
3##############################################################################
4#
5# An example of adding document properties to a Spreadsheet::WriteExcel file.
6#
7# reverse('�'), August 2008, John McNamara, jmcnamara@cpan.org
8#
9
10use strict;
11use Spreadsheet::WriteExcel;
12
13my $workbook  = Spreadsheet::WriteExcel->new('properties.xls');
14my $worksheet = $workbook->add_worksheet();
15
16
17$workbook->set_properties(
18    title    => 'This is an example spreadsheet',
19    subject  => 'With document properties',
20    author   => 'John McNamara',
21    manager  => 'Dr. Heinz Doofenshmirtz ',
22    company  => 'of Wolves',
23    category => 'Example spreadsheets',
24    keywords => 'Sample, Example, Properties',
25    comments => 'Created with Perl and Spreadsheet::WriteExcel',
26);
27
28
29$worksheet->set_column('A:A', 50);
30$worksheet->write('A1', 'Select File->Properties to see the file properties');
31
32
33__END__
34