—

              
package Spreadsheet::Perl ;
use 5.006 ;
use Carp ;
use strict ;
use warnings ;
require Exporter ;
our @ISA = qw(Exporter) ;
our %EXPORT_TAGS = 
        (
        'all' => [ qw() ]
        ) ;
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ) ;
our @EXPORT ;
push @EXPORT, qw( ) ;
our $VERSION = '0.01' ;
#-------------------------------------------------------------------------------
sub label_column
{
my ($self, $column, $label) = @_ ;
$self->Set("${column}0" => $label) ;
}
#-------------------------------------------------------------------------------
sub label_row
{
my ($self, $row, $label) = @_ ;
$self->Set('@'. $row => $label) ;
}
#-------------------------------------------------------------------------------
1 ;
HideShow 20 lines of Pod
__END__
=head1 NAME
Spreadsheet::Perl::Label - Labeling columns and rows for Spreadsheet::Perl
Part of Spreadsheet::Perl.
=head1 AUTHOR
Khemir Nadim ibn Hamouda. <nadim@khemir.net>
  Copyright (c) 2011 Nadim Ibn Hamouda el Khemir. All rights
  reserved.  This program is free software; you can redis-
  tribute it and/or modify it under the same terms as Perl
  itself.
   
If you find any value in this module, mail me!  All hints, tips, flames and wishes
are welcome at <nadim@khemir.net>.
=cut