ARGV-URL

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Revision history for ARGV::URL.
 
0.93    2011-11-09    DOLMEN (Olivier Mengué)
        Add tests, just for Kwalitee.
        More DZ plugins => META.json, perl prereq
        Add an example: examples/sherlock.pl
 
0.92    2011-09-04    DOLMEN (Olivier Mengué)
        Add tests.
        Fixes a minor POD error.
 
0.91    2011-08-12    DOLMEN (Olivier Mengué)
        Fixing mistakes of a release late in the night:
        - missing $VERSION
        - missing Github meta
 
0.90    2011-08-12    DOLMEN (Olivier Mengué)
        Initial release. No tests yet.

LICENSE  view on Meta::CPAN

205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
 
                     END OF TERMS AND CONDITIONS
 
        Appendix: How to Apply These Terms to Your New Programs
 
  If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
 
  To do so, attach the following notices to the program.  It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
 
    <one line to give the program's name and a brief idea of what it does.>

Makefile.PL  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "ARGV-URL",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "ARGV::URL",
  "PREREQ_PM" => {
    "LWP" => 5
  },
  "VERSION" => "0.93",
  "test" => {
    "TESTS" => "t/*.t"
  }
);
 
 
unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
  my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
  my $pp = $WriteMakefileArgs{PREREQ_PM};
  for my $mod ( keys %$br ) {
    if ( exists $pp->{$mod} ) {

t/00-compile.t  view on Meta::CPAN

45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
    );
 
    return @found_scripts;
}
 
my @scripts;
do { push @scripts, _find_scripts($_) if -d $_ }
    for qw{ bin script scripts };
 
my $plan = scalar(@modules) + scalar(@scripts);
$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
 
{
    # fake home for cpan-testers
    # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
 
    like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" )
        for sort @modules;
 
    SKIP: {
        eval "use Test::Script 1.05; 1;";
        skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
        foreach my $file ( @scripts ) {
            my $script = $file;
            $script =~ s!.*/!!;
            script_compiles( $file, "$script script compiles" );
        }
    }
}

t/01-basic.t  view on Meta::CPAN

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
BEGIN {
    eval 'require URI::file;';
    plan skip_all => 'URI::file module not available' if $@;
    eval 'require File::Spec;';
    plan skip_all => 'File::Spec module not available' if $@;
}
 
use ARGV::URL ();
 
plan tests => 6;
 
my @a = @ARGV = ( URI::file->new(File::Spec->rel2abs(__FILE__)) );
like $ARGV[0], qr|\Afile://|, "\$ARGV[0] is a file:// URL";
 
ARGV::URL->import;
 
is scalar(@ARGV), 1, "Array size preserved";
isnt $ARGV[0], $a[0], "\$ARGV[0] has been modified";
like $ARGV[0], qr|file://|, "\$ARGV[0] still contains a file:// URL";
like $ARGV[0], qr/|\z/, "Is a pipe";

t/90-pod.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
# This test is only for raising Kwalitee
# because testing POD is done with Module::Build using "Build testpod".
use strict;
use warnings;
use Test::More;
plan skip_all => "POD testing is only for release testing" unless $ENV{RELEASE_TESTING};
 
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
all_pod_files_ok();

t/91-pod-coverage.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
#!perl
use strict;
use warnings;
use Test::More skip_all => "this test is here only for raising Kwalitee";
 
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required" if $@;
all_pod_coverage_ok();

t/release-kwalitee.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!perl
 
BEGIN {
  unless ($ENV{RELEASE_TESTING}) {
    require Test::More;
    Test::More::plan(skip_all => 'these tests are for release candidate testing');
  }
}
 
 
# This test is generated by Dist::Zilla::Plugin::Test::Kwalitee
use strict;
use warnings;
use Test::More;   # needed to provide plan.
eval "use Test::Kwalitee";
 
plan skip_all => "Test::Kwalitee required for testing kwalitee" if $@;