File Coverage

blib/lib/POE/Filter/Ls.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package POE::Filter::Ls;

use POE::Filter::Line;

$VERSION = 0.01;

sub new {
  my $class = shift;

  return bless [ new POE::Filter::Line( Literal => "\015\012" ) ],
    ref($class)||$class;
}

sub put {
  my ($self, $lines) = @_;
  return $self->[0]->put($lines);
}

sub get {
  my ($self, $lines) = @_;

  return [ map {
    my %info;
    if (/^(.|-)(.{9})\s+(\d+)\s+(\w+)\s+(\w+)\s+(\d+)\s+(\w{3}\s+\d+\s+\d+:\d+)\s+(.*?)(?:\s+->\s+(.*))?$/) {
      @info{"type","perms","links","owner","group","size","date","filename","link"} = ($1, $2, $3, $4, $5, $6, $7, $8, $9);
    }
    \%info;
  } @{ $self->[0]->get($lines) } ];
}

1;

__END__