NAME App::GSD - boost productivity by blocking distracting websites VERSION version 0.3 SYNOPSIS use App::GSD; my $app = App:GSD->new({ block => [qw(foo.com bar.com baz.com)] }); $app->work; # sites are now blocked $app->play; # unblocked METHODS new ( \%args ) The following arguments are accepted: block An arrayref of hostnames to block, without a 'www.' prefix (if present) as these will be blocked automatically. hosts_file Path to the hosts file (e.g. '/etc/hosts'), overriding the module's guess based on current operating system. network_command A reference to an array passable to "system()" that will restart the network, e.g. ['/etc/init.d/network', 'restart'] work Set work mode - block the sites specified. play Set play mode - unblock sites. blocklist Return the blocklist, with 'www.' and non-'www.' versions included. network_command Return user-specified network command as arrayref, or undef if none specified. hosts_file Return path to hosts file. METHODS AUTHOR Richard Harris COPYRIGHT AND LICENSE This software is copyright (c) 2012 by Richard Harris. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.