[Catalyst] [PATCH] add support for JSAN2

[Kenny Gatdula]

Sebastien,
Here's a patch to Catalyst-Plugin-JSAN/lib/Catalyst/Helper/JSAN.pm to
add support for JSAN::Shell2, which will eventually replace jsan. Hope
you find it useful.

Kenny

--- JSAN.pm.orig        2006-01-01 01:45:09.000000000 -0500
+++ JSAN.pm     2006-01-01 16:09:40.000000000 -0500
@@ -76,11 +76,14 @@
  }

  my $home = Catalyst::Utils::home('[% app %]');
-$ENV{JSAN_PREFIX} ||= File::Spec->catdir( $home, 'root', 'static', 'js' );
+my $jsan_prefix = File::Spec->catdir( $home, 'root', 'static', 'js' );

-# JSAN shell
-JSAN;
-JSAN->control;
+use JSAN::Shell2 ();
+
+my $jsan = JSAN::Shell2->new;
+$jsan->command_set_verbose(1);
+$jsan->command_set_prefix($jsan_prefix);
+$jsan->run();

  1;