burak / CPAN-Sys-Info
Fetch information from the host system (Perl)
$ hg clone http://bitbucket.org/burak/cpan-sys-info/
| commit 10: | 2549d37620f7 |
| parent 9: | add21a995c8d |
| branch: | default |
11 months ago
Changed (Δ401 bytes):
Build.PL (8 lines added, 8 lines removed)
Changes (3 lines added, 0 lines removed)
Makefile.PL (3 lines added, 2 lines removed)
PREREQ (10 lines added, 4 lines removed)
lib/Sys/Info.pm (2 lines added, 2 lines removed)
t/02-pod-coverage.t (3 lines added, 7 lines removed)
t/04-driver.t (6 lines added, 0 lines removed)
1 |
1 |
use strict; |
2 |
use vars qw(%PREREQ %RECOMMEND); |
|
3 |
||
2 |
use vars qw(%PREREQ %RECOMMEND %BUILD_REQ); |
|
4 |
3 |
use Module::Build; |
5 |
4 |
|
6 |
5 |
do 'PREREQ' or die "Error including PREREQ: $@"; |
7 |
6 |
|
8 |
7 |
Module::Build->new( |
9 |
module_name => 'Sys::Info', |
|
10 |
license => 'perl', |
|
11 |
requires => \%PREREQ, |
|
12 |
recommends => \%RECOMMEND, |
|
13 |
sign => 0, |
|
14 |
dist_author => 'Burak Gursoy <burak@cpan.org>', |
|
8 |
module_name => 'Sys::Info', |
|
9 |
license => 'perl', |
|
10 |
requires => \%PREREQ, |
|
11 |
build_requires => \%BUILD_REQ, |
|
12 |
recommends => \%RECOMMEND, |
|
13 |
sign => 0, |
|
14 |
dist_author => 'Burak Gursoy <burak@cpan.org>', |
|
15 |
15 |
)->create_build_script; |
| … | … | @@ -2,6 +2,9 @@ Revision history for Perl extension Sys: |
2 |
2 |
|
3 |
3 |
Time zone is GMT+2. |
4 |
4 |
|
5 |
0.69_10 Fri Apr 3 21:17:29 2009 |
|
6 |
=> Updated the build tools and tests. |
|
7 |
||
5 |
8 |
0.69_07 Sat Mar 14 15:57:56 2009 |
6 |
9 |
=> Support for BSD driver. |
7 |
10 |
1 |
#!/usr/bin/perl |
|
1 |
2 |
use strict; |
2 |
use vars qw(%PREREQ |
|
3 |
use vars qw(%PREREQ %RECOMMEND %BUILD_REQ); |
|
3 |
4 |
use ExtUtils::MakeMaker; |
4 |
5 |
|
5 |
6 |
do 'PREREQ' or die "Error including PREREQ: $!"; |
| … | … | @@ -7,7 +8,7 @@ do 'PREREQ' or die "Error including PRER |
7 |
8 |
WriteMakefile( |
8 |
9 |
'NAME' => 'Sys::Info', |
9 |
10 |
'VERSION_FROM' => 'lib/Sys/Info.pm', |
10 |
'PREREQ_PM' => |
|
11 |
'PREREQ_PM' => { %PREREQ, %RECOMMEND, %BUILD_REQ }, |
|
11 |
12 |
($] >= 5.005 ? ( |
12 |
13 |
AUTHOR => 'Burak Gursoy <burak@cpan.org>', |
13 |
14 |
ABSTRACT => 'Fetch information from the host system', |
1 |
1 |
#!/usr/bin/perl -w |
2 |
2 |
use strict; |
3 |
use vars qw(%PREREQ %RECOMMEND |
|
3 |
use vars qw(%PREREQ %RECOMMEND %BUILD_REQ); |
|
4 |
4 |
use lib 'lib'; |
5 |
5 |
|
6 |
6 |
# copy-paste from Sys::Info::Constants |
| … | … | @@ -18,11 +18,17 @@ BEGIN { |
18 |
18 |
} |
19 |
19 |
} |
20 |
20 |
|
21 |
%RECOMMEND = (); |
|
22 |
||
23 |
%BUILD_REQ = ( |
|
24 |
'Test::More' => '0.40', |
|
25 |
'Test::Sys::Info' => '0.13', |
|
26 |
); |
|
27 |
||
21 |
28 |
%PREREQ = ( |
22 |
29 |
'IO::File' => 0, |
23 |
'Test::More' => '0.40', |
|
24 |
'Sys::Info::Base' => '0.69_06', |
|
25 |
'Sys::Info:: |
|
30 |
'Sys::Info::Base' => '0.69_10', |
|
31 |
'Sys::Info::Driver::' . OSID => '0.69_10', |
|
26 |
32 |
); |
27 |
33 |
|
28 |
34 |
1; |
Up to file-list lib/Sys/Info.pm:
| … | … | @@ -4,7 +4,7 @@ use vars qw( $VERSION @EXPORT_OK ); |
4 |
4 |
use Carp qw( croak ); |
5 |
5 |
use Sys::Info::Constants qw( OSID ); |
6 |
6 |
|
7 |
$VERSION = '0.69_ |
|
7 |
$VERSION = '0.69_10'; |
|
8 |
8 |
@EXPORT_OK = qw( OSID ); |
9 |
9 |
|
10 |
10 |
__PACKAGE__->_mk_object( $_ ) for qw( OS Device ); |
| … | … | |
197 |
197 |
=head1 LICENSE |
198 |
198 |
|
199 |
199 |
This library is free software; you can redistribute it and/or modify |
200 |
it under the same terms as Perl itself, either Perl version 5. |
|
200 |
it under the same terms as Perl itself, either Perl version 5.10.0 or, |
|
201 |
201 |
at your option, any later version of Perl 5 you may have available. |
202 |
202 |
|
203 |
203 |
=cut |
Up to file-list t/02-pod-coverage.t:
1 |
1 |
#!/usr/bin/env perl -w |
2 |
2 |
use strict; |
3 |
3 |
use Test::More; |
4 |
||
5 |
4 |
eval q{use Test::Pod::Coverage; 1;}; |
6 |
5 |
|
7 |
if ( $@ ) { |
|
8 |
plan skip_all => "Test::Pod::Coverage required for testing pod coverage"; |
|
9 |
} |
|
10 |
else { |
|
11 |
all_pod_coverage_ok(); |
|
12 |
} |
|
6 |
$@ ? plan(skip_all => "Test::Pod::Coverage required for testing pod coverage") |
|
7 |
: all_pod_coverage_ok() |
|
8 |
; |
