bump to 0.2.0 and note changes

This commit is contained in:
Zane C. B-H 2019-08-10 23:59:52 -05:00
parent e8fb129f22
commit 96e5a3dd7f
2 changed files with 104 additions and 2 deletions

View File

@ -1,5 +1,8 @@
Revision history for Net-Connection
0.2.0 2019-07-11/00:00
- Add support for proc, pctmem, pctcpu, and wchan.
0.1.0 2019-07-28/21:45
- Add the pid method.
- Resolve ports when the port is numeric.

View File

@ -11,11 +11,11 @@ Net::Connection - Represents a network connection as a object.
=head1 VERSION
Version 0.1.0
Version 0.2.0
=cut
our $VERSION = '0.1.0';
our $VERSION = '0.2.0';
=head1 SYNOPSIS
@ -129,12 +129,24 @@ This is the PTR address for local_host.
If ptrs is not true and local_host appears to be
a hostname, then it is set to the same as local_host.
=head2 pctcpu
Percent of CPU usage by the PID for this connection.
=head2 pctmem
Percent of memory usage by the PID for this connection.
=head4 pid
This is the pid for a connection.
If defined, it needs to be numeric.
=head4 pid_start
The start time in seconds of the PID for the connection.
=head4 ports
If true, it will attempt to resolve the port names.
@ -147,6 +159,10 @@ This needs to be defined, but unfortunately no real checking is done
as of currently as various OSes uses varrying capitalizations and slightly
different forms of TCP, TCP4, tcp4, tcpv4, and the like.
=head4 proc
Either the command line or fname if that is blank for the PID.
=head4 ptrs
If is true, then attempt to look up the PTRs for the hosts.
@ -198,6 +214,10 @@ will attempt to be automatically contemplated.
If uid_resolve is true and uid is defined, then this
will attempt to be automatically contemplated.
=head4 wchan
The current wait channel for the PID of the connection in question.
=cut
sub new{
@ -264,6 +284,10 @@ sub new{
'proto' => $args{'proto'},
'local_ptr' => undef,
'foreign_ptr' => undef,
'pctcpu' => undef,
'pctmem' => undef,
'proc' => undef,
'wchan' => undef,
};
bless $self;
@ -289,6 +313,18 @@ sub new{
if (defined( $args{'username'} )){
$self->{'username'}=$args{'username'};
}
if (defined( $args{'proc'} )){
$self->{'proc'}=$args{'proc'};
}
if (defined( $args{'wchan'} )){
$self->{'wchan'}=$args{'wchan'};
}
if (defined( $args{'pctmem'} )){
$self->{'pctmem'}=$args{'pctmem'};
}
if (defined( $args{'pctcpu'} )){
$self->{'pctcpu'}=$args{'pctcpu'};
}
# resolve port names if asked to
if ( $args{ports} ){
@ -515,6 +551,38 @@ sub local_ptr{
return $_[0]->{'local_ptr'};
}
=head2 pctcpu
Returns the percent of memory in use by the process
that has connection.
This may not be if it was not set. Please see new
for more information.
my $pctcpu=$conn->pctcpu;
=cut
sub pctcpu{
return $_[0]->{'pctcpu'};
}
=head2 pctmem
Returns the percent of memory in use by the process
that has connection.
This may not be if it was not set. Please see new
for more information.
my $pctmem=$conn->pctmem;
=cut
sub pctmem{
return $_[0]->{'pctmem'};
}
=head2 pid
This returns the pid of a connection.
@ -529,6 +597,22 @@ sub pid{
return $_[0]->{'pid'};
}
=head2 proc
Returns the command line or fname for the process
that has the connection.
This may not be if it was not set. Please see new
for more information.
my $proc=$conn->proc;
=cut
sub proc{
return $_[0]->{'proc'};
}
=head2 proto
Returns the protocol in use by the connection.
@ -616,6 +700,21 @@ sub username{
return $_[0]->{'username'};
}
=head2 wchan
Returns the wchan for the process that has the connection.
This may not be if it was not set. Please see new
for more information.
my $wchan=$conn->wchan;
=cut
sub wchan{
return $_[0]->{'wchan'};
}
=head1 AUTHOR
Zane C. Bowers-Hadley, C<< <vvelox at vvelox.net> >>