X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDOM%2FTiny%2FCollection.pm;h=0a41eb54ad4c3bbd6ad312398176a406fa6cf79e;hb=927f135111d601e084c5a50e2d806bddd5c9cefb;hp=857a92bf9bfcf458c5341cd876e934952ce8bd28;hpb=d6512b506041e5f51cb53585efc6823ec5f3b109;p=catagits%2FDOM-Tiny.git diff --git a/lib/DOM/Tiny/Collection.pm b/lib/DOM/Tiny/Collection.pm index 857a92b..0a41eb5 100644 --- a/lib/DOM/Tiny/Collection.pm +++ b/lib/DOM/Tiny/Collection.pm @@ -7,6 +7,8 @@ use Exporter 'import'; use List::Util; use Scalar::Util 'blessed'; +our $VERSION = '0.001'; + our @EXPORT_OK = ('c'); sub TO_JSON { [@{shift()}] } @@ -42,7 +44,7 @@ sub grep { } sub join { - join $_[1] // '', map {"$_"} @{$_[0]}; + join +(defined $_[1] ? $_[1] : ''), map {"$_"} @{$_[0]}; } sub last { shift->[-1] }