FM / Table

/usr/share/perl5/vendor_perl/Term/Table/

/usr/share/perl5/vendor_perl/Term/Table

Name	Size	Mode	Actions
Cell.pm	2959	0644	edit dl rm
CellStack.pm	2224	0644	edit dl rm
LineBreak.pm	2704	0644	edit dl rm
Spacer.pm	185	0644	edit dl rm
Util.pm	4253	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/Term/Table/LineBreak.pm (2704B)

package Term::Table::LineBreak;
use strict;
use warnings;

our $VERSION = '0.015';

use Carp qw/croak/;
use Scalar::Util qw/blessed/;
use Term::Table::Util qw/uni_length/;

use Object::HashBase 0.008 qw/string gcstring _len _parts idx/;

sub init {
    my $self = shift;

croak "string is a required attribute"
        unless defined $self->{+STRING};
}

sub columns { uni_length($_[0]->{+STRING}) }

sub break {
    my $self = shift;
    my ($len) = @_;

$self->{+_LEN} = $len;

$self->{+IDX} = 0;
    my $str = $self->{+STRING} . ""; # Force stringification

my @parts;
    my @chars = split //, $str;
    while (@chars) {
        my $size = 0;
        my $part = '';
        until ($size == $len) {
            my $char = shift @chars;
            $char = '' unless defined $char;

my $l = uni_length("$char");
            last unless $l;

last if $char eq "\n";

if ($size + $l > $len) {
                unshift @chars => $char;
                last;
            }

$size += $l;
            $part .= $char;
        }

# If we stopped just before a newline, grab it
        shift @chars if $size == $len && @chars && $chars[0] eq "\n";

until ($size == $len) {
            $part .= ' ';
            $size += 1;
        }
        push @parts => $part;
    }

$self->{+_PARTS} = \@parts;
}

sub next {
    my $self = shift;

if (@_) {
        my ($len) = @_;
        $self->break($len) if !$self->{+_LEN} || $self->{+_LEN} != $len;
    }
    else {
        croak "String has not yet been broken"
            unless $self->{+_PARTS};
    }

my $idx   = $self->{+IDX}++;
    my $parts = $self->{+_PARTS};

return undef if $idx >= @$parts;
    return $parts->[$idx];
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Term::Table::LineBreak - Break up lines for use in tables.

=head1 DESCRIPTION

This is meant for internal use. This package takes long lines of text and
splits them so that they fit in table rows.

=head1 SYNOPSIS

use Term::Table::LineBreak;

my $lb = Term::Table::LineBreak->new(string => $STRING);

$lb->break($SIZE);
    while (my $part = $lb->next) {
        ...
    }

=head1 SOURCE

The source code repository for Term-Table can be found at
F<http://github.com/exodist/Term-Table/>.

=head1 MAINTAINERS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F<http://dev.perl.org/licenses/>

=cut

cmd: