burak / CPAN-Sys-Info

Fetch information from the host system (Perl)

Clone this repository (size: 40.6 KB): HTTPS / SSH
$ hg clone http://bitbucket.org/burak/cpan-sys-info/

Changed (Δ31 bytes):

raw changeset »

lib/Sys/Info.pm (4 lines added, 3 lines removed)

Up to file-list lib/Sys/Info.pm: 

1
 
1
 
package Sys::Info;
 
2
 
2
 
use strict;
 
3
 
3
 
use warnings;
 
4
 
use Carp qw( croak );
 
4
 
use vars qw( $VERSION @EXPORT_OK );
 
5
 
use Carp qw( croak    );
 
5
 
6
 
use Sys::Info::Constants qw( OSID );
 
6
 
7
 

        	

			
        
			
        	

          		
7

          		

          		
our $VERSION   = '0.73';

        	

			
        
			
        	

          		
8

          		

          		
our @EXPORT_OK = qw( OSID );

        	

			
        
			
        	

          		

          		
8

          		
$VERSION   = '0.73';

        	

			
        
			
        	

          		

          		
9

          		
@EXPORT_OK = qw( OSID );

        	

			
        
			
        	

          		
9

          		
10

          		

        	

			
        
			
        	

          		
10

          		
11

          		
__PACKAGE__->_mk_object( $_ ) for qw( OS Device );

        	

			
        
			
        	

          		
11

          		
12