Report interesting Perl module return values
Acme::ReturnValue - report interesting return values
version 1.004
use Acme::ReturnValue;
my $rvs = Acme::ReturnValue->new;
$rvs->in_INC;
foreach (@{$rvs->interesting}) {
say $_->{package} . ' returns ' . $_->{value};
}
Acme::ReturnValue
will list ‘interesting’ return values of modules.
‘Interesting’ means something other than ‘1’.
See https://returnvalues.plix.at for the results of running Acme::ReturnValue on the whole CPAN.
run from the commandline (via acme_returnvalue.pl
my $data = $arv->waste_some_cycles( '/some/module.pm' );
waste_some_cycles
parses the passed in file using PPI. It tries to
get the last statement and extract it’s value.
waste_some_cycles
returns a hash with following keys
file
The file
package
The package defintion (the first one encountered in the file
value
The return value of that file
waste_some_cycles
will also put this data structure into
interesting or boring.
You might want to pack calls to waste_some_cycles
into an eval
because PPI dies on parse errors.
Stolen directly from Perl::RequireEndWithOne
as suggested by Chris Dolan.
Thanks!
Analyse CPAN. Needs a local CPAN mirror
$arv->in_INC;
Collect return values from all *.pm
files in @INC
.
$arv->in_dir( $some_dir );
Collect return values from all *.pm
files in $dir
.
$arv->in_file( $some_file );
Collect return value from the passed in file.
If waste_some_cycles failed, puts information on the failing file into failed.
Returns an ARRAYREF containing ‘interesting’ modules.
Returns an ARRAYREF containing ‘boring’ modules.
Returns an ARRAYREF containing unparsable modules.
Probably many, because I’m not sure I master PPI yet.
Thomas Klausner domm@plix.at
This software is copyright (c) 2013 - 2021 by Thomas Klausner.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.