Yet Another CPAN Grep

WWW-LinkChecker-Internal ( S/SH/SHLOMIF/WWW-LinkChecker-Internal-v0.0.3.tar.gz, SHLOMIF, 2012; MetaCPAN )

WWW-LinkChecker-Internal/lib/WWW/LinkChecker/Internal/API/Worker.pm ( view source; MetaCPAN )

014;

use Moo;

use Heap::Elem::Str qw( StrElem );
use Heap::Fibonacci ();
use JSON::MaybeXS   qw( decode_json encode_json );
use List::Util 1.34 qw/ any none /;

use Path::Tiny qw/ path /;

use WWW::

_url || $base_url );

    my $state =
        +( $state_fn && ( -e $state_fn ) )
        ? decode_json( path($state_fn)->slurp_utf8 )
        : {
        stack            => scalar( Heap::Fibonacci->n

rec);
            if ($state_fn)
            {
                path($state_fn)->spew_utf8( encode_json($state) );
            }
            my $from = ( $encountered_urls->{$dest_url} // "START" );