Class-Enumeration

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "perl" : "5.010000",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Exporter" : "0",
            "Exporter::Tiny" : "0",
            "Test::API" : "0",
            "Test::Fatal" : "0",
            "Test::Lib" : "0",
            "Test::More" : "1.001005",
            "Test::Needs" : "0",
            "Test::Warn" : "0",
            "parent" : "0"
         }
      }
   },
   "provides" : {
      "Class::Enumeration" : {

META.yml  view on Meta::CPAN

---
abstract: 'Abstract parent class of enum classes'
author:
  - 'Sven Willenbuecher <sven.willenbuecher@gmx.de>'
build_requires:
  Exporter: '0'
  Exporter::Tiny: '0'
  ExtUtils::MakeMaker: '0'
  Test::API: '0'
  Test::Fatal: '0'
  Test::Lib: '0'
  Test::More: '1.001005'
  Test::Needs: '0'
  Test::Warn: '0'
  parent: '0'
configure_requires:
  CPAN::Meta: '0'
  ExtUtils::MakeMaker: '6.76'
  ExtUtils::MakeMaker::CPANfile: '0.09'
  File::Spec::Functions: '0'

cpanfile  view on Meta::CPAN

  requires 'strict'       => '0';
  requires 'warnings'     => '0'
};

on test => sub {
  requires 'Exporter'       => '0';
  requires 'Exporter::Tiny' => '0';
  requires 'Test::API'      => '0';
  # https://github.com/charsbar/ExtUtils-MakeMaker-CPANfile/issues/1
  # Tricked by "# TODO: better range handling"
  requires 'Test::Fatal' => ( $] < 5.012000 ? '== 0.017' : '0' );
  requires 'Test::Lib'   => '0';
  requires 'Test::More'  => '1.001005';                             # Subtests accept args
  requires 'Test::Needs' => '0';
  requires 'Test::Warn'  => '0';
  requires 'parent'      => '0'
}

t/Builder.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More import => [ qw( BAIL_OUT cmp_ok isa_ok plan require_ok subtest ) ], tests => 6;
use Test::Fatal qw( dies_ok lives_ok );
use Test::Warn  qw( warning_like );

my $class;

BEGIN {
  $class = 'Class::Enumeration::Builder';
  require_ok $class or BAIL_OUT "Cannot load class '$class'!"
}

dies_ok { $class->import( A => {}, B => { foo => 2 } ) } 'Different number of custom attributes';

t/CoffeeSize.t  view on Meta::CPAN

## no critic (ProhibitMagicNumbers)

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note plan require_ok subtest ) ], tests => 3;
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'CoffeeSize';
  require_ok $class or BAIL_OUT "Cannot load class '$class'!";
}

subtest 'Class method invocations' => sub {
  plan tests => 14;

t/LockFlag.t  view on Meta::CPAN

## no critic (ProhibitMagicNumbers)

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note plan subtest use_ok ) ], tests => 4;
use Test::API import => [ qw( class_api_ok ) ];
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'LockFlag';
  use_ok $class, ':all' or BAIL_OUT "Cannot load class '$class'!";
}

# Class::Enumeration methods + enum constants
class_api_ok $class, qw( name ordinal value_of values names to_string LOCK_SH LOCK_EX LOCK_NB LOCK_UN );

t/PowerState.t  view on Meta::CPAN

## no critic (ProhibitMagicNumbers)

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note ok plan subtest use_ok ) ], tests => 4;
use Test::API import => [ qw( class_api_ok ) ];
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'PowerState';
  use_ok $class or BAIL_OUT "Cannot load class '$class'!";
}

# Class::Enumeration methods + TO_JSON method
class_api_ok $class, qw( name ordinal value_of values names to_string TO_JSON );

t/ToastStatus.t  view on Meta::CPAN

## no critic (ProhibitMagicNumbers)

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note plan subtest use_ok ) ], tests => 4;
use Test::API import => [ qw( class_api_ok ) ];
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'ToastStatus';
  use_ok $class, ':all' or BAIL_OUT "Cannot load class '$class'!";
}

# Class::Enumeration methods + enum constants
class_api_ok $class, qw( name ordinal value_of values names to_string bread burnt toast toasting );

t/TrafficLight.t  view on Meta::CPAN

## no critic (ProhibitMagicNumbers)

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note plan require_ok subtest ) ], tests => 4;
use Test::API import => [ qw( class_api_ok ) ];
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'TrafficLight';
  require_ok $class or BAIL_OUT "Cannot load class '$class'!";
}

# Class::Enumeration methods + custom methods
class_api_ok $class, qw( name ordinal value_of values names to_string action );

t/TurnstileState.t  view on Meta::CPAN

## no critic (ProhibitMagicNumbers)

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note plan require_ok subtest ) ], tests => 3;
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'TurnstileState';
  require_ok $class or BAIL_OUT "Cannot load class '$class'!";
}

subtest 'Class method invocations' => sub {
  plan tests => 10;

t/TurnstileStateMachine.t  view on Meta::CPAN

## no critic ( ProhibitMagicNumbers )

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note plan subtest use_ok ) ], tests => 4;
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'TurnstileStateMachine';
  use_ok $class, ':all' or BAIL_OUT "Cannot load class '$class'!";
}

subtest 'Class method invocations' => sub {
  plan tests => 10;

t/VitalStatus.t  view on Meta::CPAN

## no critic (ProhibitMagicNumbers)

use strict;
use warnings;

use Test::Lib;
use Test::More import => [ qw( BAIL_OUT cmp_ok is_deeply isa_ok note ok plan subtest use_ok ) ], tests => 4;
use Test::API import => [ qw( class_api_ok ) ];
use Test::Fatal qw( dies_ok );

my $class;

BEGIN {
  $class = 'VitalStatus';
  use_ok $class or BAIL_OUT "Cannot load class '$class'!";
}

# Class::Enumeration methods + predicate methods
class_api_ok $class, qw( name ordinal value_of values names to_string is_dead is_alive );

t/api.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More import => [ qw( BAIL_OUT require_ok ) ], tests => 8;
use Test::API import => [ qw( public_ok ) ];
use Test::Fatal qw( dies_ok lives_ok );

my $class;

BEGIN {
  $class = 'Class::Enumeration';
  require_ok $class or BAIL_OUT "Cannot load class '$class'!"
}

public_ok $class, qw( name ordinal value_of values names to_string );