package DateModule;

use 5.006;

use strict;

use warnings;

 

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw() ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw( );

 
sub new {
my $self = { INIT => 1, RED => 0, BLUE => 0, GREEN => 0 };
bless $self;
}