Common-Routine

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    "Yan Xueqing <yanxueqing621\@163.com>"
  ],
  "dist_name" => "Common-Routine",
  "dist_version" => "0.0.5",
  "license" => "perl",
  "module_name" => "Common::Routine",
  "recommends" => {},
  "recursive_test_files" => 1,
  "requires" => {
    "Exporter" => 0,
    "Modern::Perl" => 0,
    "Number::Format" => 0,
    "POSIX" => 0
  },
  "script_files" => [],
  "test_requires" => {
    "Test::More" => 0,
    "Test::Pod" => 0,
    "Test::Pod::Coverage" => "1.00"
  }
);

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.28"
         }
      },
      "runtime" : {
         "requires" : {
            "Exporter" : "0",
            "Modern::Perl" : "0",
            "Number::Format" : "0",
            "POSIX" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0",
            "Test::Pod" : "0",
            "Test::Pod::Coverage" : "1.00"
         }

META.yml  view on Meta::CPAN

  version: 1.4
name: Common-Routine
no_index:
  directory:
    - t
    - xt
    - inc
    - share
requires:
  Exporter: 0
  Modern::Perl: 0
  Number::Format: 0
  POSIX: 0
version: 0.0.5

lib/Common/Routine.pm  view on Meta::CPAN

package Common::Routine;
use Modern::Perl;
#use Carp;
use Exporter;
#use Data::Dumper;
use POSIX qw/ceil floor/;
use Number::Format qw/format_number/;
#use Math::Round;

our @ISA = ("Exporter");
our @EXPORT = ();
our @EXPORT_OK = qw/max min sum mean median var sd

t/01-podsyntax.t  view on Meta::CPAN

use Modern::Perl;
use Test::More;
use Test::Pod;

all_pod_files_ok;

t/02-podcoverage.t  view on Meta::CPAN

use Modern::Perl;
use Test::More;
use Test::Pod::Coverage 1.00;

all_pod_coverage_ok();

t/03-common.t  view on Meta::CPAN

#! /usr/bin/env perl
use Modern::Perl;
use Test::More;

my ($module, @methods);

BEGIN {
  $module = "Common::Routine";
  @methods = qw/max min sum mean median var sd trim
            ltrim rtrim ceil floor round format_number/;
  use_ok($module, @methods);
}

t/90-common-routine.t  view on Meta::CPAN

use Modern::Perl;
use Test::More;
my $module = 'Common::Routine';
use_ok($module);

done_testing;