lib/Frey/Bookmarklet.pm

package Frey::Bookmarklet;
use Moose;

=head1 NAME

Frey::Bookmarklet - provide bookmarklets for developers

=head2 SEE ALSO

L<http://slayeroffice.com/tools/modi/v2.0/modi_help.html>

=cut

extends 'Frey';
with 'Frey::Web';

use File::Slurp;

sub markup {
        my $self = shift;

        my $js = read_file( 'static/xpath.js' );
        $js =~ s{//.*}{}gm;     # remove comments so that compaction below doesn't screw code
        $js =~ s/\s\s+/ /gs;

        my $html = qq|
                <h1>Bookmarklets for developers</h1>
                <ul>
                <li><a href="javascript:void($js);">xpath</a> inspector</li>
                <li><a href="javascript:prefFile='';void(z=document.body.appendChild(document.createElement('script')));void(z.language='javascript');void(z.type='text/javascript');void(z.src='http://slayeroffice.com/tools/modi/v2.0/modi_v2.0.js');void(z.id='modi');">MODIv2</li>
        |;

        return $self->page( body => $html );
}

1;
1	package Frey::Bookmarklet;
2	use Moose;
3
4	=head1 NAME
5
6	Frey::Bookmarklet - provide bookmarklets for developers
7
8	=head2 SEE ALSO
9
10	L<http://slayeroffice.com/tools/modi/v2.0/modi_help.html>
11
12	=cut
13
14	extends 'Frey';
15	with 'Frey::Web';
16
17	use File::Slurp;
18
19	sub markup {
20	my $self = shift;
21
22	my $js = read_file( 'static/xpath.js' );
23	$js =~ s{//.*}{}gm; # remove comments so that compaction below doesn't screw code
24	$js =~ s/\s\s+/ /gs;
25
26	my $html = qq\|
27	<h1>Bookmarklets for developers</h1>
28	<ul>
29	<li><a href="javascript:void($js);">xpath</a> inspector</li>
30	<li><a href="javascript:prefFile='';void(z=document.body.appendChild(document.createElement('script')));void(z.language='javascript');void(z.type='text/javascript');void(z.src='http://slayeroffice.com/tools/modi/v2.0/modi_v2.0.js');void(z.id='modi');">MODIv2</li>
31	\|;
32
33	return $self->page( body => $html );
34	}
35
36	1;