File Coverage

blib/lib/DataCube/Report/Formatter.pm

Criterion	Covered	Total	%
statement	6	27	22.2
branch	0	6	0.0
condition	0	3	0.0
subroutine	2	6	33.3
pod	0	4	0.0
total	8	46	17.3

package DataCube::Report::Formatter;


use strict;
use warnings;


sub new {
    my($class,%opts) = @_;
    bless {}, ref($class) || $class;
}

sub dir {
    my($self,$path) = @_;
    opendir(my $D, $path) or die "DataCube::FileSplitter(dir):\ncant open directory:$path\n$!\n";
    grep {/[^\.]/} readdir($D);
}

sub sort_format {
    my($self,$path) = @_;
    my @lines = $self->fcon($path);
    @lines[1..$#lines] = sort @lines[1..$#lines];
    {
        local $| = 1;
        open(my $F, '>', $path)
            or die "DataCube::Report::Formatter(sort_format):\ncant open file for writing:\n$path\n$!\n";
        print $F join("\n",@lines);
        close $F;
    }
    return $self;
}

sub fcon {
    my($self,$path) = @_;
    open(my $F, '<' , $path)
        or die "DataCube::Report::Formatter(fcon):\ncant open:\n$path\n$!\n";
    my @lines = grep {/\S/} <$F>;
    $_ =~ s/\n//g for @lines;
    return @lines;
}






1;



__DATA__