view release on metacpan or  search on metacpan

author/assets.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use 5.008001;
use lib 'lib';
use LWP::UserAgent;
use autodie;
use Data::Dumper;
use File::Basename;
use File::Temp qw/tmpnam tempdir/;
use Text::Xslate;

my $xslate = Text::Xslate->new(
    syntax    => 'TTerse',
    module    => ['Data::Dumper'],
    type      => 'text',
    tag_start => '<%',
    tag_end   => '%>',
);

&main;exit;

sub main {
    local $Data::Dumper::Terse = 1;

    run_xsrf_token_js();
}

sub run_xsrf_token_js {
    my $content = <<'...';
(function (document) {
    "use strict";

    document.addEventListener("DOMContentLoaded", function () {