ADAMBA / Algorithm-MOS-0.001 / lib / Algorithm / MOS.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

              
#!/usr/bin/perl
use strict;
use warnings;
package Algorithm::MOS;
# ABSTRACT: Algorithm::MOS - Calculate MOS (Mean Opinion Score)
use Carp;
use parent 'Exporter';
our @EXPORT = ('calc_mos');
sub mos {
    my ( $average, $jitter, $packet_loss ) = @_
        or croak 'mos( average, jitter, packet_loss )';
    my $r_value;
    my $ret_val;
    # Take the average latency, add jitter, but double the impact to latency
    # then add 10 for protocol latancies
    my $effective_latency = ( $average + $jitter * 2 + 10 );
    # Implement a basic curve - deduct 4 for the r_value at 160ms of latency
    # (round trip). Anything over that gets a much more agressive deduction
    if ($effective_latency < 160) {
        $r_value = 93.2 - ($effective_latency / 40);
    }
    else {
        $r_value = 93.2 - ($effective_latency - 120) / 10;
    }
    # Now, let's deduct 2.5 r_value per percentage of packet_loss
    $r_value = $r_value - ($packet_loss * 2.5);
    # Convert the r_value into an MOS value. (this is a known formula)
    $ret_val = 1 + 
        (0.035) *
        $r_value +
        (0.000007) *
        $r_value *
        ($r_value - 60) *
        (100 - $r_value);
    $ret_val = sprintf( "%.3f", $ret_val);
    return $ret_val;
}
1;
__END__
=pod
=head1 NAME
Algorithm::MOS - Algorithm::MOS - Calculate MOS (Mean Opinion Score)
=head1 VERSION
version 0.001
=head1 SYNOPSIS
    use Algorithm::MOS;
    my $result = mos( $average, $jitter, $packet_loss );
    print $result, "\n";
=head1 DESCRIPTION
More to come.
=head1 AUTHOR
Adam Balali <adamba@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Adam Balali.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut