File Coverage

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

Criterion	Covered	Total	%
statement	15	18	83.3
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	3	0.0
total	20	30	66.6

### Change History
  # 1998-12-02 Created. -Simon

package Data::Quantity::Time::DayOfMonth;

require 5;
use strict;
use Carp;

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

use Data::Quantity::Number::Integer '-isasubclass';

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

# $value = Data::Quantity::Time::DayOfMonth->readable_value($number)
sub readable_value {
  my $class_or_item = shift;
  my $value = shift;

  return $value;
}

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

1;