Aion-Telemetry

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
# SUBROUTINES
 
## refmark (;$mark)
 
Creates a reference point.
 
```perl
my $reper1 = refmark "main";
 
select(undef, undef, undef, .05);
 
my $reper2 = refmark "reper2";
select(undef, undef, undef, .2);
undef $reper2;
 
select(undef, undef, undef, .05);
 
my $reper3 = refmark "reper2";
select(undef, undef, undef, .1);
undef $reper3;
 
select(undef, undef, undef, .1);
 
undef $reper1;
 
# report:
sub round ($) { int($_[0]*10 + .5) / 10 }
 
my ($report, $total) = refreport;
 
$total   # -> $report->[0]{interval} + $report->[1]{interval}

lib/Aion/Telemetry.md  view on Meta::CPAN

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
# SUBROUTINES
 
## refmark (;$mark)
 
Creates a reference point.
 
```perl
my $reper1 = refmark "main";
 
select(undef, undef, undef, .05);
 
my $reper2 = refmark "reper2";
select(undef, undef, undef, .2);
undef $reper2;
 
select(undef, undef, undef, .05);
 
my $reper3 = refmark "reper2";
select(undef, undef, undef, .1);
undef $reper3;
 
select(undef, undef, undef, .1);
 
undef $reper1;
 
# report:
sub round ($) { int($_[0]*10 + .5) / 10 }
 
my ($report, $total) = refreport;
 
$total   # -> $report->[0]{interval} + $report->[1]{interval}

lib/Aion/Telemetry.pm  view on Meta::CPAN

122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
Time inside subsegments is not taken into account!
 
=head1 SUBROUTINES
 
=head2 refmark (;$mark)
 
Creates a reference point.
 
        my $reper1 = refmark "main";
         
        select(undef, undef, undef, .05);
         
        my $reper2 = refmark "reper2";
        select(undef, undef, undef, .2);
        undef $reper2;
         
        select(undef, undef, undef, .05);
         
        my $reper3 = refmark "reper2";
        select(undef, undef, undef, .1);
        undef $reper3;
         
        select(undef, undef, undef, .1);
         
        undef $reper1;
         
        # report:
        sub round ($) { int($_[0]*10 + .5) / 10 }
         
        my ($report, $total) = refreport;
         
        $total   # -> $report->[0]{interval} + $report->[1]{interval}
        

t/aion/telemetry.t  view on Meta::CPAN

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
# 
# # SUBROUTINES
# 
# ## refmark (;$mark)
# 
# Creates a reference point.
# 
done_testing; }; subtest 'refmark (;$mark)' => sub { 
my $reper1 = refmark "main";
 
select(undef, undef, undef, .05);
 
my $reper2 = refmark "reper2";
select(undef, undef, undef, .2);
undef $reper2;
 
select(undef, undef, undef, .05);
 
my $reper3 = refmark "reper2";
select(undef, undef, undef, .1);
undef $reper3;
 
select(undef, undef, undef, .1);
 
undef $reper1;
 
# report:
sub round ($) { int($_[0]*10 + .5) / 10 }
 
my ($report, $total) = refreport;
 
::is scalar do {$total}, scalar do{$report->[0]{interval} + $report->[1]{interval}}, '$total   # -> $report->[0]{interval} + $report->[1]{interval}';