DateTime::Format::Natural::Lang::Base - Base class for DateTime::Format::Natural::Lang::

DateTime-Format-Natural documentation Contained in the DateTime-Format-Natural distribution.

Index

Code Index:

NAME

Top

DateTime::Format::Natural::Lang::Base - Base class for DateTime::Format::Natural::Lang::

SYNOPSIS

Top

 Please see the DateTime::Format::Natural::Lang:: documentation.

DESCRIPTION

Top

The DateTime::Format::Natural::Lang::Base class defines the core functionality for DateTime::Format::Natural::Lang:: grammar classes.

SEE ALSO

Top

DateTime::Format::Natural

AUTHOR

Top

Steven Schubiger <schubiger@cpan.org>

LICENSE

Top

This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.

See http://dev.perl.org/licenses/

DateTime-Format-Natural documentation Contained in the DateTime-Format-Natural distribution. 
package DateTime::Format::Natural::Lang::Base;

use strict;
use warnings;

our ($VERSION, $AUTOLOAD);

$VERSION = '1.08';

sub __new
{
    my $class = shift;

    no strict 'refs';

    my $obj = {};
    $obj->{weekdays}        = \%{"${class}::data_weekdays"};
    $obj->{weekdays_abbrev} = \%{"${class}::data_weekdays_abbrev"};
    $obj->{weekdays_all}    = \@{"${class}::data_weekdays_all"};
    $obj->{months}          = \%{"${class}::data_months"};
    $obj->{months_abbrev}   = \%{"${class}::data_months_abbrev"};
    $obj->{months_all}      = \@{"${class}::data_months_all"};
    $obj->{conversion}      = \%{"${class}::data_conversion"};
    $obj->{helpers}         = \%{"${class}::data_helpers"};
    $obj->{duration}        = \%{"${class}::data_duration"};
    $obj->{aliases}         = \%{"${class}::data_aliases"};
    $obj->{rewrite}         = \%{"${class}::data_rewrite"};

    return bless $obj, $class;
}

AUTOLOAD
{
    my ($self, $exp) = @_;

    my ($caller, $sub) = $AUTOLOAD =~ /^(.+)::(.+)$/;

    if (substr($sub, 0, 2) eq '__') {
        $sub =~ s/^__//;
        no strict 'refs';
        if (defined $exp && length $exp) {
            return ${$caller.'::'.$sub}{$exp};
        }
        else {
            return \%{$caller.'::'.$sub};
        }
    }
}

1;
__END__