view release on metacpan or  search on metacpan

lib/App/FileTools/BulkRename/UserCommands.pm  view on Meta::CPAN

# 	::LIST    { split("\n",$out)	}
# 	::HASHREF { {}			}
#       );
#   }

use Data::Dumper;

sub _USER::rd
  { my @dirs = @_;

    push @dirs,$_ if !@dirs && defined($_);

 view release on metacpan or  search on metacpan

t/unit/App/Filite/Client.t  view on Meta::CPAN

=cut

use Test2::V0 -target => 'App::Filite::Client';
use Test2::Tools::Spec;
use Data::Dumper;

use JSON::PP qw( decode_json );

use FindBin qw( $Bin );
my $SHARE = "$Bin/../../../share";

 view release on metacpan or  search on metacpan

lib/App/Foca/Client.pm  view on Meta::CPAN

    }

=cut
use strict;
use warnings;
use Data::Dumper;
use FindBin;
use HTTP::Response;
use Moose;
use Parallel::ForkManager;
use WWW::Curl::Easy;

 view release on metacpan or  search on metacpan

lib/App/Fotagger/Export.pm  view on Meta::CPAN

use strict;
use warnings;
use 5.010;

use Moose;
use Data::Dumper;
use Imager;
use File::Spec::Functions qw(catfile);
extends 'App::Fotagger';

has 'verbose' => ( isa => 'Bool', is => 'ro', default=>0);

 view release on metacpan or  search on metacpan

lib/App/Framework/Lite.pm  view on Meta::CPAN

		*prt_data = sub {my $this = shift; Debug::DumpObj::prt_data(@_)} ;
	}
	else
	{
		# See if we've got Data Dummper
		if (_load_module('Data::Dumper'))
		{
			# Create local function
			*prt_data = sub {my $this = shift; print Dumper([@_])} ;
		}	
		else

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

no_index:
  directory:
    - inc
    - t
requires:
  Data::Dumper: 0
  File::Spec: 0.80
  Wx: 0.25
  perl: 5.005
version: 0.03