burak / CPAN-CGI-Auth-Basic
Basic CGI authentication interface for Perl
Clone this repository (size: 37.8 KB): HTTPS / SSH
$ hg clone http://bitbucket.org/burak/cpan-cgi-auth-basic/
| commit 6: | 3df588e5484d |
| parent 5: | e04cd3ccc4ed |
| branch: | default |
update builder
- View burak's profile
-
burak's public repos »
- CPAN-Padre-Plugin-HG
- CPAN-Net-Bitbucket
- CPAN-GD-SecurityImage
- CPAN-Lingua-TR-Numbers
- CPAN-Sys-Info-Driver-Windows
- CPAN-Task-Lingua-Any-Numbers
- CPAN-Time-Elapsed
- CPAN-Win32-ASP-CGI
- CPAN-Scalar-Util-Reftype
- CPAN-Parse-HTTP-UserAgent
- CPAN-Acme-CPANAuthors-Turkish
- CPAN-tools
- CPAN-Device-CableModem-Motorola-SB4200
- CPAN-Text-Template-Simple
- CPAN-CGI-Auth-Basic
- CPAN-GD-Thumbnail
- CPAN-Lingua-Any-Numbers
- CPAN-MP3-M3U-Parser
- CPAN-PHP-Session-DBI
- CPAN-Sys-Info
- CPAN-Sys-Info-Base
- CPAN-Sys-Info-Driver-BSD
- CPAN-Sys-Info-Driver-Linux
- CPAN-Sys-Info-Driver-Unknown
- CPAN-Test-Sys-Info
- Send message
11 months ago
Changed (Δ1.1 KB):
1 |
1 |
use strict; |
2 |
use Module::Build; |
|
3 |
use File::Spec; |
|
4 |
use |
|
2 |
use lib qw( builder ); |
|
3 |
use Build; |
|
5 |
4 |
|
6 |
my $class = Module::Build->subclass( |
|
7 |
class => 'MBSubclass', |
|
8 |
code => raw_subclass(), |
|
9 |
); |
|
10 |
||
11 |
my $mb = $class->new( |
|
12 |
module_name => 'CGI::Auth::Basic', |
|
13 |
license => 'perl', |
|
14 |
requires => {}, |
|
15 |
recommends => {}, |
|
16 |
build_requires => { |
|
17 |
'Test::More' => '0.40', |
|
18 |
}, |
|
19 |
sign => 0, |
|
20 |
dist_author => 'Burak Gursoy <burak@cpan.org>', |
|
21 |
create_license => 1, |
|
22 |
no_index => { |
|
23 |
directory => [ |
|
24 |
'tools', |
|
25 |
't', |
|
26 |
] |
|
27 |
}, |
|
28 |
meta_merge => { |
|
29 |
resources => { |
|
30 |
repository => 'http://bitbucket.org/burak/cpan-cgi-auth-basic/', |
|
31 |
}, |
|
32 |
}, |
|
33 |
); |
|
34 |
||
5 |
my $mb = Build->new; |
|
6 |
$mb->change_versions(1); |
|
35 |
7 |
$mb->create_build_script; |
36 |
||
37 |
sub raw_subclass { |
|
38 |
my $file = File::Spec->catfile( 'tools', 'Build.pm' ); |
|
39 |
my $FH = IO::File->new; |
|
40 |
$FH->open( $file, 'r' ) or die "Can not open($file): $!"; |
|
41 |
my $rv = do { local $/; <$FH> }; |
|
42 |
close $FH; |
|
43 |
return $rv; |
|
44 |
} |
