File Coverage

blib/lib/Data/Quantity/Time/MonthOfYear.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	21	57.1

### Change History
  # 1998-12-03 Factored out Data::Quantity::Abstract::InstanceIndex superclass.
  # 1998-12-02 Created. -Simon

package Data::Quantity::Time::MonthOfYear;

require 5;
use strict;

use vars qw( $VERSION );
$VERSION = 0.001;

use Data::Quantity::Abstract::InstanceIndex '-isasubclass';

# undef = Data::Quantity::Time::MonthOfYear->scale();
sub scale {
  return 'MonthOfYear';
}

Data::Quantity::Time::MonthOfYear->instances();
Data::Quantity::Time::MonthOfYear->instances( [
  {
  },
  {
    'name' => 'January',
    'short' => 'Jan',
  },
  {
    'name' => 'February',
    'short' => 'Feb',
  },
  {
    'name' => 'March',
    'short' => 'Mar',
  },
  {
    'name' => 'April',
    'short' => 'Apr',
  },
  {
    'name' => 'May',
    'short' => 'May',
  },
  {
    'name' => 'June',
    'short' => 'Jun',
  },
  {
    'name' => 'July',
    'short' => 'Jul',
  },
  {
    'name' => 'August',
    'short' => 'Aug',
  },
  {
    'name' => 'September',
    'short' => 'Sep',
  },
  {
    'name' => 'October',
    'short' => 'Oct',
  },
  {
    'name' => 'November',
    'short' => 'Nov',
  },
  {
    'name' => 'December',
    'short' => 'Dec',
  },
] );


# $padded = $quantity->zero_padded();
sub zero_padded {
  my $date = shift;
  $date->SUPER::zero_padded( scalar @_ ? @_ : 2 );
}

1;