[Bps-public-commit] r9677 - in Date-Extract: . lib/Date

[sartak at bestpractical.com]

Author: sartak
Date: Thu Nov 15 19:39:27 2007
New Revision: 9677

Modified:
   Date-Extract/   (props changed)
   Date-Extract/lib/Date/Extract.pm
   Date-Extract/t/01-new.t

Log:
 r45227 at onn:  sartak | 2007-11-15 17:40:33 -0500
 bit of perltidy


Modified: Date-Extract/lib/Date/Extract.pm
==============================================================================
--- Date-Extract/lib/Date/Extract.pm	(original)
+++ Date-Extract/lib/Date/Extract.pm	Thu Nov 15 19:39:27 2007
@@ -108,11 +108,9 @@
 
 =cut
 
-sub new
-{
+sub new {
     my $class = shift;
-    my %args = 
-    (
+    my %args = (
         conflict => 'first',
         success => undef,
         @_,
@@ -123,8 +121,7 @@
      && $args{conflict} ne 'earliest'
      && $args{conflict} ne 'latest'
      && $args{conflict} ne 'all'
-     && $args{conflict} ne 'all_cron')
-    {
+     && $args{conflict} ne 'all_cron') {
         require Carp;
         Carp::croak "Invalid `conflict` passed to constructor: expected 'first', 'last', earliest', 'latest', 'all', or 'all_cron'.";
     }
@@ -146,8 +143,7 @@
 
 =cut
 
-sub extract_date
-{
+sub extract_date {
     my ($self, $text) = @_;
     $self->{success} = 0;
 
@@ -163,8 +159,7 @@
 
 =cut
 
-sub success
-{
+sub success {
     my ($self) = @_;
     return $self->{success};
 }

Modified: Date-Extract/t/01-new.t
==============================================================================
--- Date-Extract/t/01-new.t	(original)
+++ Date-Extract/t/01-new.t	Thu Nov 15 19:39:27 2007
@@ -9,8 +9,7 @@
 ok($parser->isa("Date::Extract"), "new parser is a Date::Extract object");
 
 # conflict {{{
-for my $preference (qw/first last earliest latest all all_cron/)
-{
+for my $preference (qw/first last earliest latest all all_cron/) {
     $parser = Date::Extract->new(conflict => $preference);
     ok($parser, "got a parser out of Date::Extract->new(conflict => 'first')");
     ok($parser->isa("Date::Extract"), "new parser is a Date::Extract object");
@@ -23,8 +22,7 @@
 
 # }}}
 # prefer_future, prefer_past {{{
-for my $prefer (qw/prefer_future prefer_past/)
-{
+for my $prefer (qw/prefer_future prefer_past/) {
     $parser = Date::Extract->new($prefer => 1);
     ok($parser, "got a parser out of Date::Extract->new($prefer => 1)");
     ok($parser->isa("Date::Extract"), "new parser is a Date::Extract object");