Hi,
I just used perltidy version v20071205 to tidy up the following piece of code:
sub BUILDARGS {
my ( $class, @args ) = @_;
given (@args) {
when ( scalar @args == 1 && !ref $args[0] ) {
return { name => $args[0] }
}
default {
return { name => File::Spec->catfile(@args) }
}
}
}
I got the following code back:
2008-09-03 16:19:47 UTC in perltidy
