1package Spreadsheet::ParseExcel::SaveParser::Worksheet; 2 3############################################################################### 4# 5# Spreadsheet::ParseExcel::SaveParser::Worksheet - A class for SaveParser Worksheets. 6# 7# Used in conjunction with Spreadsheet::ParseExcel. 8# 9# Copyright (c) 2014 Douglas Wilson 10# Copyright (c) 2009-2013 John McNamara 11# Copyright (c) 2006-2008 Gabor Szabo 12# Copyright (c) 2000-2006 Kawai Takanori 13# 14# perltidy with standard settings. 15# 16# Documentation after __END__ 17# 18 19use strict; 20use warnings; 21 22#============================================================================== 23# Spreadsheet::ParseExcel::SaveParser::Worksheet 24#============================================================================== 25 26use base 'Spreadsheet::ParseExcel::Worksheet'; 27our $VERSION = '0.65'; 28 29sub new { 30 my ( $sClass, %rhIni ) = @_; 31 $sClass->SUPER::new(%rhIni); # returns object 32} 33 34#------------------------------------------------------------------------------ 35# AddCell (for Spreadsheet::ParseExcel::SaveParser::Worksheet) 36#------------------------------------------------------------------------------ 37sub AddCell { 38 my ( $oSelf, $iR, $iC, $sVal, $oCell, $sCode ) = @_; 39 40 $oSelf->{_Book} 41 ->AddCell( $oSelf->{_SheetNo}, $iR, $iC, $sVal, $oCell, $sCode ); 42} 43 44#------------------------------------------------------------------------------ 45# Protect (for Spreadsheet::ParseExcel::SaveParser::Worksheet) 46# - Password = undef -> No protect 47# - Password = '' -> Protected. No password 48# - Password = $pwd -> Protected. Password = $pwd 49#------------------------------------------------------------------------------ 50sub Protect { 51 my ( $oSelf, $sPassword ) = @_; 52 $oSelf->{Protect} = $sPassword; 53} 54 551; 56 57__END__ 58 59=pod 60 61=head1 NAME 62 63Spreadsheet::ParseExcel::SaveParser::Worksheet - A class for SaveParser Worksheets. 64 65=head1 SYNOPSIS 66 67See the documentation for Spreadsheet::ParseExcel. 68 69=head1 DESCRIPTION 70 71This module is used in conjunction with Spreadsheet::ParseExcel. See the documentation for Spreadsheet::ParseExcel. 72 73=head1 AUTHOR 74 75Current maintainer 0.60+: Douglas Wilson dougw@cpan.org 76 77Maintainer 0.40-0.59: John McNamara jmcnamara@cpan.org 78 79Maintainer 0.27-0.33: Gabor Szabo szabgab@cpan.org 80 81Original author: Kawai Takanori kwitknr@cpan.org 82 83=head1 COPYRIGHT 84 85Copyright (c) 2014 Douglas Wilson 86 87Copyright (c) 2009-2013 John McNamara 88 89Copyright (c) 2006-2008 Gabor Szabo 90 91Copyright (c) 2000-2006 Kawai Takanori 92 93All rights reserved. 94 95You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file. 96 97=cut 98