diff options
author | dakkar <dakkar@luxion> | 2006-01-23 14:35:57 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2006-01-23 14:35:57 +0000 |
commit | 4910d7f3f95421a5a2bd147a9cf38929967474a7 (patch) | |
tree | c3b09e62ae2ed4fa0142cd58fc942bf73f25c9d9 /script/bookmarks_test.pl | |
parent | ora la configurazione รจ migliore per il mio setup (diff) | |
download | Bookmarks-4910d7f3f95421a5a2bd147a9cf38929967474a7.tar.gz Bookmarks-4910d7f3f95421a5a2bd147a9cf38929967474a7.tar.bz2 Bookmarks-4910d7f3f95421a5a2bd147a9cf38929967474a7.zip |
nuovi script per Catalyst 5.63
Diffstat (limited to 'script/bookmarks_test.pl')
-rwxr-xr-x | script/bookmarks_test.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/script/bookmarks_test.pl b/script/bookmarks_test.pl index d692744..20305c4 100755 --- a/script/bookmarks_test.pl +++ b/script/bookmarks_test.pl @@ -1,13 +1,11 @@ #!/usr/bin/perl -w -BEGIN { $ENV{CATALYST_ENGINE} ||= 'Test' } - use strict; use Getopt::Long; use Pod::Usage; use FindBin; use lib "$FindBin::Bin/../lib"; -use Bookmarks; +use Catalyst::Test 'Bookmarks'; my $help = 0; @@ -15,7 +13,7 @@ GetOptions( 'help|?' => \$help ); pod2usage(1) if ( $help || !$ARGV[0] ); -print Bookmarks->run($ARGV[0])->content . "\n"; +print request($ARGV[0])->content . "\n"; 1; |