[Rt-commit] r3651 - in Data-ICal: . lib/Data

glasser at bestpractical.com glasser at bestpractical.com
Mon Aug 15 16:18:41 EDT 2005


Author: glasser
Date: Mon Aug 15 16:18:41 2005
New Revision: 3651

Modified:
   Data-ICal/   (props changed)
   Data-ICal/lib/Data/ICal.pm
Log:
 r39550 at tin-foil:  glasser | 2005-08-15 16:00:23 -0400
 perltidy


Modified: Data-ICal/lib/Data/ICal.pm
==============================================================================
--- Data-ICal/lib/Data/ICal.pm	(original)
+++ Data-ICal/lib/Data/ICal.pm	Mon Aug 15 16:18:41 2005
@@ -97,22 +97,24 @@
 sub parse {
     my $self = shift;
     my %args = (
-      filename => undef,
-      data => undef,
-      @_);
+        filename => undef,
+        data     => undef,
+        @_
+    );
 
     return unless defined $args{filename} or defined $args{data};
 
     my @lines;
 
-    if (defined $args{filename}) {
-	open my $fh, '<', $args{filename} or return;
-	@lines = <$fh>;
+    if ( defined $args{filename} ) {
+        open my $fh, '<', $args{filename} or return;
+        @lines = <$fh>;
     } else {
-	# This regexp splits after newlines, but keeps them in the string, kind
-	# of like <$fh> does.
-	@lines = split /^/m, $args{data};
-    } 
+
+       # This regexp splits after newlines, but keeps them in the string, kind
+       # of like <$fh> does.
+        @lines = split /^/m, $args{data};
+    }
 
     # open the file (checking as we go, like good little Perl mongers)
     my $cal = Text::vFile::asData->new->parse_lines(@lines);


More information about the Rt-commit mailing list