From 2f652ba783a4b8675a020955e494c64391eb0ab2 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 19 Apr 2010 15:39:15 -0500
Subject: initial implementation

---
 lib/Resource/Pack/JSON/URL.pm | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 lib/Resource/Pack/JSON/URL.pm

(limited to 'lib/Resource/Pack/JSON/URL.pm')

diff --git a/lib/Resource/Pack/JSON/URL.pm b/lib/Resource/Pack/JSON/URL.pm
new file mode 100644
index 0000000..441ce2d
--- /dev/null
+++ b/lib/Resource/Pack/JSON/URL.pm
@@ -0,0 +1,43 @@
+package Resource::Pack::JSON::URL;
+use Moose;
+
+extends 'Resource::Pack::URL';
+
+=head1 NAME
+
+Resource::Pack::JSON::URL - subclass of Resource::Pack::URL to clean up the json2.js souce
+
+=head1 DESCRIPTION
+
+This modifies the install process to strip out the alert that json2.js includes
+at the top of the file.
+
+=cut
+
+after install => sub {
+    my $self = shift;
+    my $installed = $self->install_to_absolute;
+    my $contents = $installed->slurp;
+    $contents =~ s/^\Qalert('IMPORTANT: Remove this line from json2.js before deployment.');\E\n//;
+    my $fh = $installed->openw;
+    $fh->print($contents);
+    $fh->close;
+};
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+=head1 AUTHOR
+
+  Jesse Luehrs <doy at tozt dot net>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by Jesse Luehrs.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as perl itself.
+
+=cut
+
+1;
-- 
cgit v1.2.3-54-g00ecf