Changeset 2315

Show
Ignore:
Timestamp:
08/27/07 17:07:17
Author:
miyagawa
Message:

Checking in changes prior to tagging of version 0.10. Changelog diff is:

=== Changes
==================================================================
--- Changes (revision 6873)
+++ Changes (local)
@@ -1,5 +1,9 @@

Revision history for Perl extension Web
Scraper

+0.10 Mon Aug 27 00:53:51 PDT 2007
+ - result now returns the entire stash if called without keys
+ - added bin/scraper CLI
+

0.09 Wed Aug 15 10:51:14 PDT 2007

- remove Devel
Leak use from tests

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Web-Scraper/trunk/Changes

    r2311 r2315  
    11Revision history for Perl extension Web::Scraper 
     2 
     30.10  Mon Aug 27 00:53:51 PDT 2007 
     4        - result now returns the entire stash if called without keys 
     5        - added bin/scraper CLI 
    26 
    370.09  Wed Aug 15 10:51:14 PDT 2007 
  • Web-Scraper/trunk/MANIFEST

    r2309 r2315  
     1bin/scraper 
    12Changes 
    23eg/dave-trailer-HD.pl 
     
    1213inc/Module/Install/Makefile.pm 
    1314inc/Module/Install/Metadata.pm 
     15inc/Module/Install/Scripts.pm 
    1416inc/Module/Install/TestBase.pm 
    1517inc/Module/Install/Win32.pm 
  • Web-Scraper/trunk/Makefile.PL

    r2261 r2315  
    1111 
    1212build_requires 'Test::More'; 
     13install_script 'bin/scraper'; 
     14 
    1315use_test_base; 
    1416auto_include; 
  • Web-Scraper/trunk/lib/Web/Scraper.pm

    r2311 r2315  
    77use HTML::Selector::XPath; 
    88 
    9 our $VERSION = '0.09'; 
     9our $VERSION = '0.10'; 
    1010 
    1111sub import { 
     
    7979        if (@keys == 1) { 
    8080            return $stash->{$keys[0]}; 
    81         } else
     81        } elsif (@keys)
    8282            my %res; 
    8383            @res{@keys} = @{$stash}{@keys}; 
    8484            return \%res; 
     85        } else { 
     86            return $stash; 
    8587        } 
    8688    };