File Coverage

lib/Acme/Free/Advice.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	2	2	100.0
total	26	28	92.8

package Acme::Free::Advice 1.1 {
    use v5.38;
    use parent 'Exporter';
    use Module::Load;
    our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[advice flavors] ] );
    #
    my %flavor = (
        map {
            my $pkg = 'Acme::Free::Advice::' . $_;
            ( eval 'require ' . $pkg ? ( lc($_) => $pkg ) : () ),
        } qw[Slip Unsolicited]
    );

    sub advice ( $flavor //= ( keys %flavor )[ rand keys %flavor ] ) {
        $flavor{$flavor} // return ();
        my $cv = $flavor{$flavor}->can('advice');
        $cv ? $cv->() : ();
    }
    sub flavors () { keys %flavor }
}
1;
__END__