File Coverage

blib/lib/App/headtail.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	8	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	30	26.6

package App::headtail;

use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-12-27'; # DATE
our $DIST = 'App-headtail'; # DIST
our $VERSION = '0.001'; # VERSION

sub run {
    my %opts = @_;

    if (defined $opts{lines}) {
        my (@first, @last);

        while (<>) {
            push @first, $_ unless @first >= $opts{lines};
            push @last , $_; shift @last if @last > $opts{lines};
        }

        if ($. < @first + @last) {
            splice @last, 0, (@first + @last) - $.;
        }

        print for @first;
        print for @last;

    } else {
        die;
    }
}


1;
# ABSTRACT: head+tail

__END__