Select Code to Download

sub new {
    my $class = shift;
...

    return $self;
}

    my @sheets = map {
        my $idx = $_->att('rels:id');
...
          ()
        }
    } $files->{workbook}->find_nodes('//s:sheets/s:sheet');

    #my hack to only process worksheets matching the sheet filter
    my %sheet_filter=();
...
        }
    } grep {%sheet_filter ? defined $sheet_filter{$_->att('name')} : 1
+} $files->{workbook}->find_nodes('//s:sheets/s:sheet');

 
    #my hack to only return the list of sheet names
    if($self->{just_find_sheet_names}) {
...
      $workbook->{SheetCount} = scalar(@sheets);
      return $workbook;
    }