view release on metacpan or  search on metacpan

lib/Excel/Writer/XLSX/Worksheet.pm  view on Meta::CPAN

                    my $length = 0;


                    if ( $type eq 's' || $type eq 'r' ) {

                        # Handle strings and rich strings.
                        #
                        # For standard shared strings we do a reverse lookup
                        # from the shared string id to the actual string. For
                        # rich strings we use the unformatted string. We also
                        # split multiline strings and handle each part
                        # separately.
                        my $string;

                        if ( $type eq 's' ) {

                            # Handle standard shared strings.
                            $string = $strings[$token];
                        }
                        else {
                            # Handle rich strings without html formatting.