view release on metacpan or  search on metacpan

lib/Acme/AwesomeQuotes.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use strict;
use warnings;
use utf8;
use 5.008_003;
 
package Acme::AwesomeQuotes;
BEGIN {
  $Acme::AwesomeQuotes::VERSION = '0.02';
}
 
binmode STDIN,  ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
 
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(GetAwesome);
our @EXPORT    = qw(GetAwesome);
 
use Carp qw(croak);
use Unicode::Normalize qw(NFC NFD);
 
# ABSTRACT: Make your text awesome!

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
 
use strict;
use warnings;
use utf8;
 
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
 
use Test::More;
 
my @modules = qw(utf8 Exporter Carp Unicode::Normalize);
 
plan tests => (scalar @modules);
 
for (@modules) {
        use_ok $_;
}

t/getawesome.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
 
use strict;
use warnings;
use utf8;
 
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
 
use lib qw(../lib);
 
use Test::More;
 
BEGIN {
        plan tests => (22);
        use_ok ('Acme::AwesomeQuotes') or diag("Cannot load module Acme::AwesomeQuotes!");
}