Changeset 24216 for lang/perl/DateTime-Lite

Timestamp:

11/19/08 11:19:30 (5 years ago)

Author:

daisuke

Message:

more stuff

Location:

lang/perl/DateTime-Lite/trunk

Files:

• lib/DateTime/Lite.pm (modified) (5 diffs)
• lib/DateTime/Lite/Locale.pm (modified) (2 diffs)
• misc/locale/en_US.yaml (modified) (1 diff)
• t/03components.t (modified) (3 diffs)

lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite.pm

@@ -6 +6 @@
 use DateTime::Lite::Util;
 use Scalar::Util qw(blessed);
+use SelfLoader;
 
 use constant INFINITY     =>      (9 ** 9 ** 9);
@@ -29 +30 @@
 
 # XXX Prime candidate for SelfLoading
-sub ce_year { 
-    my $year = $_[0]->{local_c}{year};
-    return $year <= 0 ? $year - 1 : $year
-}
+# XXX
 
 sub set_time_zone {
@@ -216 +214 @@
 }
 
-# XXX FIXME
-sub _offset_for_local_datetime { $_[0]->{tz}->offset_for_local_datetime( $_[0] ) }
-
 sub _calc_local_rd
 {
@@ -239 +234 @@
 
         # intentionally ignore leap seconds here
-        $self->_normalize_tai_seconds( $self->{local_rd_days}, $self->{local_rd_
-secs} );
+        DateTime::Lite::Util::normalize_tai_seconds( $self->{local_rd_days}, $self->{local_rd_secs} );
 
         $self->{local_rd_secs} += $self->{offset_modifier};
@@ -312 +306 @@
 1;
 
+__DATA__
+sub millisecond { _round( $_[0]->{rd_nanosecs} / 1000000 ) }
+
+sub microsecond { _round( $_[0]->{rd_nanosecs} / 1000 ) }
+
+sub _round
+{
+    my $val = shift;
+    my $int = int $val;
+
+    return $val - $int >= 0.5 ? $int + 1 : $int;
+}
+
+sub ce_year { 
+    my $year = $_[0]->{local_c}{year};
+    return $year <= 0 ? $year - 1 : $year
+}
+sub month_0 { $_[0]->{local_c}{month} - 1 }
+*mon_0 = \&month_0;
+
+sub era_name { $_[0]->{locale}->era_wide->[ $_[0]->_era_index() ] }
+
+sub era_abbr { $_[0]->{locale}->era_abbreviated->[ $_[0]->_era_index() ] }
+# deprecated
+*era = \&era_abbr;
+
+sub _era_index { $_[0]->{local_c}{year} <= 0 ? 0 : 1 }
+
+sub christian_era { $_[0]->ce_year > 0 ? 'AD' : 'BC' }
+sub secular_era   { $_[0]->ce_year > 0 ? 'CE' : 'BCE' }
+
+sub year_with_era { (abs $_[0]->ce_year) . $_[0]->era_abbr }
+sub year_with_christian_era { (abs $_[0]->ce_year) . $_[0]->christian_era }
+sub year_with_secular_era   { (abs $_[0]->ce_year) . $_[0]->secular_era }
+
+
+sub month_name { $_[0]->{locale}->month_format_wide->[ $_[0]->month_0() ] }
+
+sub month_abbr { $_[0]->{locale}->month_format_abbreviated->[ $_[0]->month_0() ] }
+
+*day_of_month = \&day;
+*mday = \&day;
+sub weekday_of_month { use integer; ( ( $_[0]->day - 1 ) / 7 ) + 1 }
+
+sub quarter_name { $_[0]->{locale}->quarter_format_wide->[ $_[0]->quarter_0() ] }
+sub quarter_abbr { $_[0]->{locale}->quarter_format_abbreviated->[ $_[0]->quarter_0() ] }
+
+sub quarter_0 { $_[0]->{local_c}{quarter} - 1 }
+
+sub day_of_month_0 { $_[0]->{local_c}{day} - 1 }
+*day_0  = \&day_of_month_0;
+*mday_0 = \&day_of_month_0;
+
+sub day_of_week { $_[0]->{local_c}{day_of_week} }
+*wday = \&day_of_week;
+*dow  = \&day_of_week;
+
+sub day_of_week_0 { $_[0]->{local_c}{day_of_week} - 1 }
+*wday_0 = \&day_of_week_0;
+*dow_0  = \&day_of_week_0;
+sub hour_1 { $_[0]->{local_c}{hour} == 0 ? 24 : $_[0]->{local_c}{hour} }
+
+sub hour_12   { my $h = $_[0]->hour % 12; return $h ? $h : 12 }
+sub hour_12_0 { $_[0]->hour % 12 }
+
+*min = \&minute;
+
+*sec = \&second;
+
+sub day_name { $_[0]->{locale}->day_format_wide->[ $_[0]->day_of_week_0() ] }
+
+sub day_abbr { $_[0]->{locale}->day_format_abbreviated->[ $_[0]->day_of_week_0() ] }
+
+sub day_of_quarter { $_[0]->{local_c}{day_of_quarter} }
+*doq = \&day_of_quarter;
+
+sub day_of_quarter_0 { $_[0]->day_of_quarter - 1 }
+*doq_0 = \&day_of_quarter_0;
+
+sub day_of_year { $_[0]->{local_c}{day_of_year} }
+*doy = \&day_of_year;
+
+sub day_of_year_0 { $_[0]->{local_c}{day_of_year} - 1 }
+*doy_0 = \&day_of_year_0;
+
+sub am_or_pm { $_[0]->{locale}->am_pm_abbreviated->[ $_[0]->hour() < 12 ? 0 : 1 ] }
+
+# ISO says that the first week of a year is the first week containing
+# a Thursday.  Extending that says that the first week of the month is
+# the first week containing a Thursday.  ICU agrees.
+#
+# Algorithm supplied by Rick Measham, who doesn't understand how it
+# works.  Neither do I.  Please feel free to explain this to me!
+sub week_of_month
+{
+    my $self = shift;
+
+    # Faster than cloning just to get the dow
+    my $first_wday_of_month = ( 8 - ( $self->day - $self->dow ) % 7 ) % 7;
+    $first_wday_of_month = 7 unless $first_wday_of_month;
+
+    my $wom = int( ( $self->day + $first_wday_of_month - 2 ) / 7 );
+    return ( $first_wday_of_month <= 4 ) ? $wom + 1 : $wom;
+}
+
+sub ymd
+{
+    my ( $self, $sep ) = @_;
+    $sep = '-' unless defined $sep;
+
+    return sprintf( "%0.4d%s%0.2d%s%0.2d",
+                    $self->year, $sep,
+                    $self->{local_c}{month}, $sep,
+                    $self->{local_c}{day} );
+}
+*date = \&ymd;
+
+sub mdy
+{
+    my ( $self, $sep ) = @_;
+    $sep = '-' unless defined $sep;
+
+    return sprintf( "%0.2d%s%0.2d%s%0.4d",
+                    $self->{local_c}{month}, $sep,
+                    $self->{local_c}{day}, $sep,
+                    $self->year );
+}
+
+sub dmy
+{
+    my ( $self, $sep ) = @_;
+    $sep = '-' unless defined $sep;
+
+    return sprintf( "%0.2d%s%0.2d%s%0.4d",
+                    $self->{local_c}{day}, $sep,
+                    $self->{local_c}{month}, $sep,
+                    $self->year );
+}
+
+sub hms
+{
+    my ( $self, $sep ) = @_;
+    $sep = ':' unless defined $sep;
+
+    return sprintf( "%0.2d%s%0.2d%s%0.2d",
+                    $self->{local_c}{hour}, $sep,
+                    $self->{local_c}{minute}, $sep,
+                    $self->{local_c}{second} );
+}
+# don't want to override CORE::time()
+*DateTime::Lite::time = \&hms;
+
+sub iso8601 { join 'T', $_[0]->ymd('-'), $_[0]->hms(':') }
+*datetime = \&iso8601;
+
+sub is_leap_year { DateTime::Lite::Util::is_leap_year( $_[0]->year ) }
+
+sub time_zone { $_[0]->{tz} }
+
+sub offset                     { $_[0]->{tz}->offset_for_datetime( $_[0] ) }
+sub _offset_for_local_datetime { $_[0]->{tz}->offset_for_local_datetime( $_[0] ) }
+
+sub is_dst { $_[0]->{tz}->is_dst_for_datetime( $_[0] ) }
+
+sub time_zone_long_name  { $_[0]->{tz}->name }
+sub time_zone_short_name { $_[0]->{tz}->short_name_for_datetime( $_[0] ) }
+
+sub locale { $_[0]->{locale} }
+*language = \&locale;
+
+
+
 __END__

lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite/Locale.pm

@@ -23 +23 @@
 }
 
-sub new {
-    my $class = shift;
-    bless { scalar @_ == 1 ? %{$_[0]} : @_ }, $class;
-}
-
 sub load {
     my ($class, $name) = @_;
@@ -39 +34 @@
 }
 
+use List::MoreUtils ();
+
+BEGIN
+{
+    foreach my $field ( qw( id en_complete_name native_complete_name
+                            en_language en_script en_territory en_variant
+                            native_language native_script native_territory native_variant
+                          )
+                      )
+    {
+        # remove leading 'en_' for method name
+        (my $meth_name = $field) =~ s/^en_//;
+
+        # also remove 'complete_'
+        $meth_name =~ s/complete_//;
+
+        no strict 'refs';
+        *{$meth_name} = sub { $_[0]->{$field} };
+    }
+}
+
+sub new
+{
+    my $class = shift;
+
+    # By making the default format lengths part of the object's hash
+    # key, it allows them to be settable.
+    return bless { @_,
+        default_date_format_length => $class->_default_date_format_length(),
+        default_time_format_length => $class->_default_time_format_length(),
+    }, $class;
+}
+
+sub language_id  { ( DateTime::Locale::_parse_id( $_[0]->id ) )[0] }
+sub script_id    { ( DateTime::Locale::_parse_id( $_[0]->id ) )[1] }
+sub territory_id { ( DateTime::Locale::_parse_id( $_[0]->id ) )[2] }
+sub variant_id   { ( DateTime::Locale::_parse_id( $_[0]->id ) )[3] }
+
+my @FormatLengths = qw( short medium long full );
+
+sub date_format_default
+{
+    my $meth = 'date_format_' . $_[0]->default_date_format_length();
+    $_[0]->$meth();
+}
+
+sub date_formats
+{
+    return
+        { map { my $meth = 'date_format_' . $_;
+                $_ => $_[0]->$meth() } @FormatLengths }
+}
+
+sub time_format_default
+{
+    my $meth = 'time_format_' . $_[0]->default_time_format_length();
+    $_[0]->$meth();
+}
+
+sub time_formats
+{
+    return
+        { map { my $meth = 'time_format_' . $_;
+                $_ => $_[0]->$meth() } @FormatLengths }
+}
+
+sub format_for
+{
+    my $self = shift;
+    my $for  = shift;
+
+    my $meth = '_format_for_' . $for;
+
+    return unless $self->can($meth);
+
+    return $self->$meth();
+}
+
+sub available_formats
+{
+    my $self = shift;
+
+    # The various parens seem to be necessary to force uniq() to see
+    # the caller's list context. Go figure.
+    my @uniq = List::MoreUtils::uniq( map { keys %{ $_->_available_formats() || {} } }
+                                      Class::ISA::self_and_super_path( ref $self ) );
+
+    # Doing the sort in the same expression doesn't work under 5.6.x.
+    return sort @uniq;
+}
+
+# Just needed for the above method.
+sub _available_formats { }
+
+sub default_date_format_length { $_[0]->{default_date_format_length} }
+
+sub set_default_date_format_length
+{
+    my $self = shift;
+    my ($l) = validate_pos( @_, { regex => qr/^(?:full|long|medium|short)$/i } );
+
+    $self->{default_date_format_length} = lc $l;
+}
+
+sub default_time_format_length { $_[0]->{default_time_format_length} }
+
+sub set_default_time_format_length
+{
+    my $self = shift;
+    my ($l) = validate_pos( @_, { regex => qr/^(?:full|long|medium|short)/i } );
+
+    $self->{default_time_format_length} = lc $l;
+}
+
+for my $length ( qw( full long medium short ) )
+{
+    my $key = 'datetime_format_' . $length;
+
+    my $sub =
+        sub { my $self = shift;
+
+              return $self->{$key} if exists $self->{$key};
+
+              my $date_meth = 'date_format_' . $length;
+              my $time_meth = 'time_format_' . $length;
+
+              return $self->{$key} = $self->_make_datetime_format( $date_meth, $time_meth );
+            };
+
+    no strict 'refs';
+    *{$key} = $sub;
+}
+
+sub datetime_format_default
+{
+    my $self = shift;
+
+    my $date_meth = 'date_format_' . $self->default_date_format_length();
+    my $time_meth = 'time_format_' . $self->default_time_format_length();
+
+    return $self->_make_datetime_format( $date_meth, $time_meth );
+}
+
+sub _make_datetime_format
+{
+    my $self      = shift;
+    my $date_meth = shift;
+    my $time_meth = shift;
+
+    my $dt_format = $self->datetime_format();
+
+    my $time = $self->$time_meth();
+    my $date = $self->$date_meth();
+
+    $dt_format =~ s/\{0\}/$time/g;
+    $dt_format =~ s/\{1\}/$date/g;
+
+    return $dt_format;
+}
+
+sub prefers_24_hour_time
+{
+    my $self = shift;
+
+    return $self->{prefers_24_hour_time}
+        if exists $self->{prefers_24_hour_time};
+
+    $self->{prefers_24_hour_time} =
+        $self->time_format_short() =~ /h|K/ ? 0 : 1;
+}
+
+sub date_before_time
+{
+    my $self = shift;
+
+    my $dt_format = $self->datetime_format();
+
+    return $dt_format =~ /\{1\}.*\{0\}/ ? 1 : 0;
+}
+
+sub date_parts_order
+{
+    my $self = shift;
+
+    my $short = $self->date_format_short();
+
+    $short =~ tr{dmyDMY}{}cd;
+    $short =~ tr{dmyDMY}{dmydmy}s;
+
+    return $short;
+}
+
+sub full_date_format   { $_[0]->_convert_to_strftime( $_[0]->date_format_full() ) }
+sub long_date_format   { $_[0]->_convert_to_strftime( $_[0]->date_format_long() ) }
+sub medium_date_format { $_[0]->_convert_to_strftime( $_[0]->date_format_medium() ) }
+sub short_date_format  { $_[0]->_convert_to_strftime( $_[0]->date_format_short() ) }
+sub default_date_format { $_[0]->_convert_to_strftime( $_[0]->date_format_default() ) }
+
+sub full_time_format   { $_[0]->_convert_to_strftime( $_[0]->time_format_full() ) }
+sub long_time_format   { $_[0]->_convert_to_strftime( $_[0]->time_format_long() ) }
+sub medium_time_format { $_[0]->_convert_to_strftime( $_[0]->time_format_medium() ) }
+sub short_time_format  { $_[0]->_convert_to_strftime( $_[0]->time_format_short() ) }
+sub default_time_format { $_[0]->_convert_to_strftime( $_[0]->time_format_default() ) }
+
+sub full_datetime_format   { $_[0]->_convert_to_strftime( $_[0]->datetime_format_full() ) }
+sub long_datetime_format   { $_[0]->_convert_to_strftime( $_[0]->datetime_format_long() ) }
+sub medium_datetime_format { $_[0]->_convert_to_strftime( $_[0]->datetime_format_medium() ) }
+sub short_datetime_format  { $_[0]->_convert_to_strftime( $_[0]->datetime_format_short() ) }
+sub default_datetime_format { $_[0]->_convert_to_strftime( $_[0]->datetime_format_default() ) }
+
+# Older versions of DateTime.pm will not pass in the $cldr_ok flag, so
+# we will give them the converted-to-strftime pattern (bugs and all).
+sub _convert_to_strftime
+{
+    my $self    = shift;
+    my $pattern = shift;
+    my $cldr_ok = shift;
+
+    return $pattern if $cldr_ok;
+
+    return $self->{_converted_patterns}{$pattern}
+        if exists $self->{_converted_patterns}{$pattern};
+
+    return $self->{_converted_patterns}{$pattern} = $self->_cldr_to_strftime($pattern);
+}
+
+{
+    my @JavaPatterns =
+        ( qr/G/     => '{era}',
+          qr/yyyy/  => '{ce_year}',
+          qr/y/     => 'y',
+          qr/u/     => 'Y',
+          qr/MMMM/  => 'B',
+          qr/MMM/   => 'b',
+          qr/MM/    => 'm',
+          qr/M/     => '{month}',
+          qr/dd/    => 'd',
+          qr/d/     => '{day}',
+          qr/hh/    => 'l',
+          qr/h/     => '{hour_12}',
+          qr/HH/    => 'H',
+          qr/H/     => '{hour}',
+          qr/mm/    => 'M',
+          qr/m/     => '{minute}',
+          qr/ss/    => 'S',
+          qr/s/     => '{second}',
+          qr/S/     => 'N',
+          qr/EEEE/  => 'A',
+          qr/E/     => 'a',
+          qr/D/     => 'j',
+          qr/F/     => '{weekday_of_month}',
+          qr/w/     => 'V',
+          qr/W/     => '{week_month}',
+          qr/a/     => 'p',
+          qr/k/     => '{hour_1}',
+          qr/K/     => '{hour_12_0}',
+          qr/z/     => '{time_zone_long_name}',
+        );
+
+    sub _cldr_to_strftime
+    {
+        shift;
+        my $simple = shift;
+
+        $simple =~
+            s/(G+|y+|u+|M+|d+|h+|H+|m+|s+|S+|E+|D+|F+|w+|W+|a+|k+|K+|z+)|'((?:[^']|'')*)'/
+                $2 ? _stringify($2) : $1 ? _convert($1) : "'"/eg;
+
+        return $simple;
+    }
+
+    sub _convert
+    {
+        my $simple = shift;
+
+        for ( my $x = 0; $x < @JavaPatterns; $x += 2 )
+        {
+            return '%' . $JavaPatterns[ $x + 1 ] if $simple =~ /$JavaPatterns[$x]/;
+        }
+
+        die "**Dont know $simple***";
+    }
+
+    sub _stringify
+    {
+        my $string = shift;
+
+        $string =~ s/%(?:[^%])/%%/g;
+        $string =~ s/\'\'/\'/g;
+
+        return $string;
+    }
+}
+
+# end backwards compat
+
+sub STORABLE_freeze
+{
+    my $self = shift;
+    my $cloning = shift;
+
+    return if $cloning;
+
+    return $self->id();
+}
+
+sub STORABLE_thaw
+{
+    my $self = shift;
+    my $cloning = shift;
+    my $serialized = shift;
+
+    my $obj = DateTime::Locale->load( $serialized );
+
+    %$self = %$obj;
+
+    return $self;
+}
+
+foreach my $field qw(
+am_pm_abbreviated
+date_format_full
+date_format_long
+date_format_medium
+date_format_short
+datetime_format
+day_format_abbreviated
+day_format_narrow
+day_format_wide
+day_stand_alone_abbreviated
+day_stand_alone_narrow
+day_stand_alone_wide
+era_abbreviated
+era_narrow
+era_wide
+first_day_of_week
+month_format_abbreviated
+month_format_narrow
+month_format_wide
+month_stand_alone_abbreviated
+month_stand_alone_narrow
+month_stand_alone_wide
+quarter_format_abbreviated
+quarter_format_narrow
+quarter_format_wide
+quarter_stand_alone_abbreviated
+quarter_stand_alone_narrow
+quarter_stand_alone_wide
+time_format_full
+time_format_long
+time_format_medium
+time_format_short
+_default_date_format_length
+_default_time_format_length
+_format_for_Hm
+_format_for_M
+_format_for_MEd
+_format_for_MMM
+_format_for_MMMEd
+_format_for_MMMMEd
+_format_for_MMMMd
+_format_for_MMMd
+_format_for_Md
+_format_for_d
+_format_for_ms
+_format_for_y
+_format_for_yM
+_format_for_yMEd
+_format_for_yMMM
+_format_for_yMMMEd
+_format_for_yMMMM
+_format_for_yQ
+_format_for_yQQQ
+) {
+    no strict 'refs';
+    *{$field} = sub { $_[0]->{$field} }
+}
+
+
 1;

lang/perl/DateTime-Lite/trunk/misc/locale/en_US.yaml

@@ -1 +1 @@
 name: en_US
+am_pm_abbreviated: [ "AM", "PM" ]
+date_format_full: "EEEE, MMMM d, yyyy"
+date_format_long: "MMMM d, yyyy"
+date_format_medium: "MMM d, yyyy"
+date_format_short: "M/d/yy"
+datetime_format: "{1} {0}"
+day_format_abbreviated: [ "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun" ]
+day_format_narrow: [ "M", "T", "W", "T", "F", "S", "S" ]
+day_format_wide: [ "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday" ]
+
+day_stand_alone_abbreviated: [ "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" ]
+day_stand_alone_narrow: [ "M", "T", "W", "T", "F", "S", "S" ]
+
+day_stand_alone_wide: [ "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday" ]
+era_abbreviated: [ "BC", "AD" ]
+era_narrow: [ "B", "A" ]
+era_wide: [ "Before Christ", "Anno Domini" ]
+first_day_of_week: 1
+month_format_abbreviated: [ "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" ]
+
+month_format_narrow: [ "J", "F", "M", "A", "M", "J", "J", "A", "S", "O", "N", "D" ]
+month_format_wide: [ "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" ]
+month_stand_alone_abbreviated: [ "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" ]
+month_stand_alone_narrow: [ "J", "F", "M", "A", "M", "J", "J", "A", "S", "O", "N", "D" ]
+
+month_stand_alone_wide: [ "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" ]
+quarter_format_abbreviated: [ "Q1", "Q2", "Q3", "Q4" ]
+quarter_format_narrow: [ "1", "2", "3", "4" ]
+quarter_format_wide: [ "1st quarter", "2nd quarter", "3rd quarter", "4th quarter" ]
+
+quarter_stand_alone_abbreviated : [ "Q1", "Q2", "Q3", "Q4" ]
+quarter_stand_alone_narrow: [ "1", "2", "3", "4" ]
+
+quarter_stand_alone_wide : [ "1st quarter", "2nd quarter", "3rd quarter", "4th quarter" ]
+time_format_full: "h:mm:ss a v"
+time_format_long: "h:mm:ss a z"
+time_format_medium: "h:mm:ss a"
+time_format_short: "h:mm a"
+_format_for_Hm: "HH:mm"
+_format_for_Hms: "HH:mm:ss"
+_format_for_M: "L"
+_format_for_MEd: "E, M/d"
+_format_for_MMM: "LLL"
+_format_for_MMMEd: "E, MMM d"
+_format_for_MMMMEd: "E, MMMM d"
+_format_for_MMMMd: "MMMM d"
+_format_for_MMMd: "MMM d"
+_format_for_Md: "M/d"
+_format_for_d: "d"
+_format_for_hm: "h:mm a"
+_format_for_ms: "mm:ss"
+_format_for_y: "yyyy"
+_format_for_yM: "M/yyyy"
+_format_for_yMEd: "EEE, M/d/yyyy"
+_format_for_yMMM: "MMM yyyy"
+_format_for_yMMMEd: "EEE, MMM d, yyyy"
+_format_for_yMMMM: "MMMM yyyy"
+_format_for_yQ: "Q yyyy"
+_format_for_yQQQ: "QQQ yyyy"
+_available_formats:
+    "Hm": "HH:mm"
+    "Hms": "HH:mm:ss"
+    "M": "L"
+    "MEd": "E, M/d"
+    "MMM": "LLL"
+    "MMMEd": "E, MMM d"
+    "MMMMEd": "E, MMMM d"
+    "MMMMd": "MMMM d"
+    "MMMd": "MMM d"
+    "Md": "M/d"
+    "d": "d"
+    "hm": "h:mm a"
+    "ms": "mm:ss"
+    "y": "yyyy"
+    "yM": "M/yyyy"
+    "yMEd": "EEE, M/d/yyyy"
+    "yMMM": "MMM yyyy"
+    "yMMMEd": "EEE, MMM d, yyyy"
+    "yMMMM": "MMMM yyyy"
+    "yQ": "Q yyyy"
+    "yQQQ": "QQQ yyyy"
+

lang/perl/DateTime-Lite/trunk/t/03components.t

@@ -143 +143 @@
     is( $dt0->year_with_secular_era, '1CE', 'year_with_secular_era is 1CE' );
 
+    SKIP: { 
+        skip "arithmetic not yet implemented", 8;
+
     $dt0->subtract( years => 1 );
 
@@ -153 +156 @@
     is( $dt0->secular_era, 'BCE', 'secular_era is BCE' );
     is( $dt0->year_with_secular_era, '1BCE', 'year_with_secular_era is 1BCE' );
+    }
 }
 
@@ -160 +164 @@
     is( $dt_neg->ce_year, -11, "year -10 is ce_year -11" );
 
+    SKIP: {
+        skip "duration not yet implemented", 2;
     my $dt1 = $dt_neg + DateTime::Lite::Duration->new( years => 10 );
     is( $dt1->year, 0, "year is 0 after adding ten years to year -10" );
     is( $dt1->ce_year, -1, "ce_year is -1 after adding ten years to year -10" );
+    }
 }