view release on metacpan or  search on metacpan

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

    has username        => ( is => 'ro', isa => Str,  traits => ['ENV'], env_key => 'user' );
    has home_directory  => ( is => 'ro', isa => Dir,  traits => ['ENV'], env_key => 'home' );
    has term            => ( is => 'ro', isa => Str,  traits => ['ENV'] );

    has useraccounts    => ( is => 'ro', isa => Int,  lazy_build => 1, documentation => q{Check if system is like /home/b/bruder ... then you have to also supply the hidden "I'm the administrator switch"} );
    has username_length => ( is => 'ro', isa => Int,  lazy_build => 1, documentation => q{self explanatory} );
    has shell           => ( is => 'ro', isa => Str,  lazy_build => 1, documentation => q{self explanatory} );
    has harddrive_size  => ( is => 'ro', isa => Int,  lazy_build => 1, documentation => q{self explanatory} );
    has harddrive_used  => ( is => 'ro', isa => Int,  lazy_build => 1, documentation => q{self explanatory} );
    has uptime          => ( is => 'ro', isa => Any,  lazy_build => 1, documentation => q{self explanatory} );
    has users           => ( is => 'ro', isa => Any,  lazy_build => 1, documentation => q{The number of users logged in on the system} );
    has cores           => ( is => 'ro', isa => Any,  lazy_build => 1, documentation => q{The Number of cores of this machine} );
    has using_multiplex => ( is => 'ro', isa => Bool, lazy_build => 1, documentation => q{using screen or tmux});
    has using_byobu     => ( is => 'ro', isa => Bool, lazy_build => 1, documentation => q{using byobu as multiplexer frontend!} );
    has using_tmux      => ( is => 'ro', isa => Bool, lazy_build => 1, documentation => q{using tmux as multiplexer} );
    has using_screen    => ( is => 'ro', isa => Bool, lazy_build => 1, documentation => q{using screen as multiplexer} );

    has perl_version           => ( is => 'ro', isa => StrictVersionStr, lazy_build => 1, documentation => q{The executing Perl's version number});
    has perl_version_is_dev    => ( is => 'ro', isa => Bool, lazy_build => 1, documentation => q{The executing Perl's version number});
    has directories_in_path    => ( is => 'ro', isa => Int,  lazy_build => 1, documentation => q{The number of directories set in $PATH} );
    has using_perlbrew         => ( is => 'ro', isa => Bool, lazy_build => 1, documentation => q{self explanatory} );

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

=head1 TODO

=over

=item *

Find good ways to calculate the following:

=back

   * number of users logged in on the system (one user with 9 shells is 1 user.)
   * harddisk size
   * memory used
   * swap used
   * harddisk free space
   * uptime in minutes
   * running time in minutes
   * average load

=over