diff options
| author | Jesse Luehrs <doy@tozt.net> | 2015-03-15 00:48:52 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2015-03-15 00:48:52 -0400 |
| commit | cf65e27c62d53f0097851b76e29b659df366b08a (patch) | |
| tree | 7c5e409b80ec16d1b6b77fbd67bd3c83ce9b5e47 | |
| parent | d68a64fd13b65e80a4cfb763527d8189c1376151 (diff) | |
| download | spreadsheet-parsexlsx-cf65e27c62d53f0097851b76e29b659df366b08a.tar.gz spreadsheet-parsexlsx-cf65e27c62d53f0097851b76e29b659df366b08a.zip | |
don't call ->text on the element if it doesn't exist
| -rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index edab490..ac33514 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -167,8 +167,13 @@ sub _parse_sheet { 'headerFooter' => sub { my ($twig, $hf) = @_; - $sheet->{header} = $hf->first_child('oddHeader')->text // ''; - $sheet->{footer} = $hf->first_child('oddFooter')->text // ''; + my ($helem, $felem) = map { + $hf->first_child($_) + } qw(oddHeader oddFooter); + $sheet->{header} = $helem->text + if $helem; + $sheet->{footer} = $felem->text + if $felem; $twig->purge; }, |