Haircut - See how long it's been since your last haircut
use Haircut;
my $haircut = Haircut.new(last-cut => '2015-07-01');
say $haircut.text-summary;
...will output something like:
Today is 2015-08-02.
Your last cut was on 2015-07-01.
It has been 32 day(s).
Perhaps your next cut should be on 2015-09-15?
(That would be 2 months and 2 weeks from the last cut; 76 day(s) later.)
Run this module via its CLI program, like so:
$ perl6 bin/haircut --last-cut=2015-07-01
Try out the test suite, like so:
$ prove --exec perl6
Perl 6 is supplied by Rakudo.
This software was developed with Rakudo v6.c, using the MoarVM backend.
The perl6 binary can be attained via
rakudobrew, like so:
$ rakudobrew build moar v6.c
Running the tests relies on prove, which is supplied by Perl 5's
App::Prove.
Tommy Stanton <[email protected]>