view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.130880'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Algorithm-MOS
requires:
  Carp: 0
  Exporter: 0
  parent: 0
  strict: 0
  warnings: 0
version: 0.001

Makefile.PL  view on Meta::CPAN

  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "Algorithm-MOS",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "Algorithm::MOS",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Exporter" => 0,
    "parent" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {},
  "VERSION" => "0.001",
  "test" => {
    "TESTS" => ""
  }
);

lib/Algorithm/MOS.pm  view on Meta::CPAN

#!/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