package Excel::Writer::XLSX::Workbook; sub activesheet { my($self) = @_; return $self->{'_worksheets'}->[ $self->{'_activesheet'} ]; }