File Coverage

blib/lib/Net/Connection/Sort/uid.pm
Criterion Covered Total %
statement 24 27 88.8
branch 4 6 66.6
condition 1 3 33.3
subroutine 6 6 100.0
pod 2 3 66.6
total 37 45 82.2


line stmt bran cond sub pod time code
1             package Net::Connection::Sort::uid;
2              
3 2     2   224873 use 5.006;
  2         21  
4 2     2   11 use strict;
  2         4  
  2         49  
5 2     2   10 use warnings;
  2         5  
  2         574  
6              
7             =head1 NAME
8              
9             Net::Connection::Sort::uid - Sorts the connections via the UID.
10              
11             =head1 VERSION
12              
13             Version 0.0.0
14              
15             =cut
16              
17             our $VERSION = '0.0.0';
18              
19              
20             =head1 SYNOPSIS
21              
22             Please keep in mind that UID is not a requirement and if not specified is set to 0,
23             meaning it will show up earlier.
24              
25             use Net::Connection::Sort::host_f;
26             use Net::Connection;
27             use Data::Dumper;
28            
29             my @objects=(
30             Net::Connection->new({
31             'foreign_host' => '3.3.3.3',
32             'local_host' => '4.4.4.4',
33             'foreign_port' => '22',
34             'local_port' => '11132',
35             'sendq' => '1',
36             'recvq' => '0',
37             'state' => 'ESTABLISHED',
38             'proto' => 'tcp4'
39             'uid' => 33,
40             }),
41             Net::Connection->new({
42             'foreign_host' => '1.1.1.1',
43             'local_host' => '2.2.2.2',
44             'foreign_port' => '22',
45             'local_port' => '11132',
46             'sendq' => '1',
47             'recvq' => '0',
48             'state' => 'ESTABLISHED',
49             'proto' => 'tcp4'
50             'uid' => 0,
51             }),
52             Net::Connection->new({
53             'foreign_host' => '5.5.5.5',
54             'local_host' => '6.6.6.6',
55             'foreign_port' => '22',
56             'local_port' => '11132',
57             'sendq' => '1',
58             'recvq' => '0',
59             'state' => 'ESTABLISHED',
60             'proto' => 'tcp4'
61             'uid' => 1000,
62             }),
63             # as no UID is specified, the value of 0 will just be used instead
64             Net::Connection->new({
65             'foreign_host' => '3.3.3.3',
66             'local_host' => '4.4.4.4',
67             'foreign_port' => '22',
68             'local_port' => '11132',
69             'sendq' => '1',
70             'recvq' => '0',
71             'state' => 'ESTABLISHED',
72             'proto' => 'tcp4'
73             }),
74             );
75            
76             my $sorter=$sorter=Net::Connection::Sort::uid->new;
77            
78             @objects=$sorter->sorter( \@objects );
79            
80             print Dumper( \@objects );
81              
82             =head1 METHODS
83              
84             =head2 new
85              
86             This initiates the module.
87              
88             No arguments are taken and this will always succeed.
89              
90             my $sorter=$sorter=Net::Connection::Sort::uid->new;
91              
92             =cut
93              
94             sub new{
95 1     1 1 1955 my %args;
96 1 50       5 if(defined($_[1])){
97 0         0 %args= %{$_[1]};
  0         0  
98             };
99              
100              
101 1         2 my $self = {
102             };
103 1         2 bless $self;
104              
105 1         3 return $self;
106             }
107              
108             =head2 sort
109              
110             This sorts the array of Net::Connection objects.
111              
112             One object is taken and that is a array of objects.
113              
114             @objects=$sorter->sorter( \@objects );
115            
116             print Dumper( \@objects );
117              
118             =cut
119              
120             sub sorter{
121 1     1 0 385 my $self=$_[0];
122 1         1 my @objects;
123 1 50 33     11 if (
124             defined( $_[1] ) &&
125             ( ref($_[1]) eq 'ARRAY' )
126             ){
127 1         3 @objects=@{ $_[1] };
  1         3  
128             }else{
129 0         0 die 'The passed item is either not a array or undefined';
130             }
131              
132             @objects=sort {
133 1         4 &helper( $a->uid ) <=> &helper( $b->uid )
  4         9  
134             } @objects;
135              
136 1         4 return @objects;
137             }
138              
139             =head2 helper
140              
141             This is a internal function.
142              
143             If no UID is defined, returns 0.
144              
145             =cut
146              
147             sub helper{
148 8 100   8 1 32 if ( !defined($_[0]) ){
149 2         7 return 0;
150             }
151 6         13 return $_[0];
152             }
153              
154             =head1 AUTHOR
155              
156             Zane C. Bowers-Hadley, C<< >>
157              
158             =head1 BUGS
159              
160             Please report any bugs or feature requests to C, or through
161             the web interface at L. I will be notified, and then you'll
162             automatically be notified of progress on your bug as I make changes.
163              
164              
165              
166              
167             =head1 SUPPORT
168              
169             You can find documentation for this module with the perldoc command.
170              
171             perldoc Net::Connection::Sort
172              
173              
174             You can also look for information at:
175              
176             =over 4
177              
178             =item * RT: CPAN's request tracker (report bugs here)
179              
180             L
181              
182             =item * Search CPAN
183              
184             L
185              
186             =item * Git Repo
187              
188             L
189              
190             =back
191              
192              
193             =head1 ACKNOWLEDGEMENTS
194              
195              
196             =head1 LICENSE AND COPYRIGHT
197              
198             This software is Copyright (c) 2019 by Zane C. Bowers-Hadley.
199              
200             This is free software, licensed under:
201              
202             The Artistic License 2.0 (GPL Compatible)
203              
204              
205             =cut
206              
207             1; # End of Net::Connection::Sort