view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

It adds the new value to the list, shifting old values up. It then
generates a nice report of the amount of disk space occupied in each
of the specified paths, together with the amount it grew (or shrank)
since the previous run, and since seven runs ago.

When run daily, such as from `cron`, `dusage` outputs daily and weekly
reports.

## Warning

This program was written in 1990 for Perl 3.0. Later I updated some
parts for Perl 5. As a result, the source is sometimes ugly.

## Availability

### Source Code

* [CPAN](https://metacpan.org/pod/App::Dusage)
* [GitHub](https://github.com/sciurius/dusage)

## Issue Tracking

t/10-d1.t  view on Meta::CPAN

--------  -------  -------  --------------------------------
      20                    lib/App
     172                    blib
      24                    lib
      56                    script
      16                    t
EXP

    open( my $du, '<', 't/du.tst' );
    $res = do { local $/; <$du> };
    is( $res, <<EXP, "du.tst updated" );
# glob * -> blib lib script t
# glob lib/* -> lib/App
lib/App	20:::::::
lib/*
blib	172:::::::
lib	24:::::::
script	56:::::::
t	16:::::::
*
EXP

t/10-d1.t  view on Meta::CPAN

--------  -------  -------  --------------------------------
      19       -1           lib/App
     172        0           blib
      24        0           lib
      56        0           script
      20       +4           t
EXP

    open( my $du, '<', 't/du.tst' );
    $res = do { local $/; <$du> };
    is( $res, <<EXP, "du.tst updated" );
# glob * -> blib lib script t
# glob lib/* -> lib/App
lib/App	19:20::::::
lib/*
blib	172:172::::::
lib	24:24::::::
script	56:56::::::
t	20:16::::::
*
EXP