Skip to content
Browse files

removed Simpsons and Futurama quotes

  • Loading branch information...
1 parent 423c0e5 commit f55dd1116b337a72ba3696dcdb793c9ee19be3d6 @kraih committed Aug 28, 2012
Showing with 23 additions and 712 deletions.
  1. +3 −0 Changes
  2. +0 −2 Makefile.PL
  3. +0 −1 examples/connect-proxy.pl
  4. +0 −1 examples/entities.pl
  5. +0 −2 examples/fast.pl
  6. +0 −2 examples/hello.pl
  7. +0 −2 examples/microhttpd.pl
  8. +0 −3 examples/websocket.pl
  9. +0 −2 lib/Mojo.pm
  10. +0 −1 lib/Mojo/Asset.pm
  11. +0 −4 lib/Mojo/Asset/File.pm
  12. +0 −3 lib/Mojo/Asset/Memory.pm
  13. +0 −2 lib/Mojo/Base.pm
  14. +0 −11 lib/Mojo/ByteStream.pm
  15. +0 −6 lib/Mojo/Cache.pm
  16. +0 −11 lib/Mojo/Collection.pm
  17. +0 −2 lib/Mojo/Content.pm
  18. +0 −3 lib/Mojo/Cookie.pm
  19. +0 −3 lib/Mojo/Cookie/Request.pm
  20. +0 −3 lib/Mojo/Cookie/Response.pm
  21. +0 −5 lib/Mojo/DOM.pm
  22. +0 −5 lib/Mojo/DOM/CSS.pm
  23. +0 −7 lib/Mojo/DOM/HTML.pm
  24. +0 −6 lib/Mojo/Date.pm
  25. +0 −10 lib/Mojo/EventEmitter.pm
  26. +0 −4 lib/Mojo/Exception.pm
  27. +0 −5 lib/Mojo/Headers.pm
  28. +0 −1 lib/Mojo/HelloWorld.pm
  29. +0 −5 lib/Mojo/Home.pm
  30. +0 −8 lib/Mojo/IOLoop.pm
  31. +0 −4 lib/Mojo/IOLoop/Client.pm
  32. +0 −3 lib/Mojo/IOLoop/Delay.pm
  33. +0 −7 lib/Mojo/IOLoop/Server.pm
  34. +0 −8 lib/Mojo/IOLoop/Stream.pm
  35. +0 −3 lib/Mojo/JSON.pm
  36. +0 −2 lib/Mojo/JSON/Pointer.pm
  37. +0 −5 lib/Mojo/Loader.pm
  38. +0 −4 lib/Mojo/Log.pm
  39. +0 −7 lib/Mojo/Message.pm
  40. +0 −2 lib/Mojo/Message/Request.pm
  41. +0 −2 lib/Mojo/Message/Response.pm
  42. +0 −7 lib/Mojo/Parameters.pm
  43. +0 −8 lib/Mojo/Path.pm
  44. +0 −4 lib/Mojo/Reactor.pm
  45. +0 −3 lib/Mojo/Reactor/EV.pm
  46. +0 −7 lib/Mojo/Reactor/Poll.pm
  47. +0 −11 lib/Mojo/Server.pm
  48. +0 −3 lib/Mojo/Server/CGI.pm
  49. +0 −2 lib/Mojo/Server/Daemon.pm
  50. +0 −18 lib/Mojo/Server/Hypnotoad.pm
  51. +0 −14 lib/Mojo/Server/Morbo.pm
  52. +0 −7 lib/Mojo/Server/PSGI.pm
  53. +0 −2 lib/Mojo/Template.pm
  54. +0 −1 lib/Mojo/Transaction.pm
  55. +0 −2 lib/Mojo/Transaction/HTTP.pm
  56. +0 −2 lib/Mojo/Transaction/WebSocket.pm
  57. +0 −5 lib/Mojo/URL.pm
  58. +0 −4 lib/Mojo/Upload.pm
  59. +0 −1 lib/Mojo/UserAgent.pm
  60. +0 −10 lib/Mojo/UserAgent/CookieJar.pm
  61. +0 −6 lib/Mojo/UserAgent/Transactor.pm
  62. +0 −4 lib/Mojo/Util.pm
  63. +1 −14 lib/Mojolicious.pm
  64. +0 −2 lib/Mojolicious/Command.pm
  65. +0 −1 lib/Mojolicious/Command/cgi.pm
  66. +0 −1 lib/Mojolicious/Command/cpanify.pm
  67. +0 −3 lib/Mojolicious/Command/daemon.pm
  68. +0 −4 lib/Mojolicious/Command/eval.pm
  69. +0 −1 lib/Mojolicious/Command/generate.pm
  70. +0 −1 lib/Mojolicious/Command/generate/app.pm
  71. +0 −2 lib/Mojolicious/Command/generate/lite_app.pm
  72. +0 −3 lib/Mojolicious/Command/generate/makefile.pm
  73. +0 −5 lib/Mojolicious/Command/generate/plugin.pm
  74. +0 −3 lib/Mojolicious/Command/get.pm
  75. +0 −1 lib/Mojolicious/Command/inflate.pm
  76. +0 −2 lib/Mojolicious/Command/psgi.pm
  77. +0 −2 lib/Mojolicious/Command/routes.pm
  78. +0 −2 lib/Mojolicious/Command/test.pm
  79. +0 −1 lib/Mojolicious/Command/version.pm
  80. +0 −4 lib/Mojolicious/Commands.pm
  81. +0 −27 lib/Mojolicious/Controller.pm
  82. +0 −3 lib/Mojolicious/Guides/CodingGuidelines.pod
  83. +0 −4 lib/Mojolicious/Lite.pm
  84. +0 −3 lib/Mojolicious/Plugin.pm
  85. +0 −3 lib/Mojolicious/Plugin/Charset.pm
  86. +0 −2 lib/Mojolicious/Plugin/Config.pm
  87. +0 −2 lib/Mojolicious/Plugin/DefaultHelpers.pm
  88. +0 −2 lib/Mojolicious/Plugin/EPLRenderer.pm
  89. +0 −3 lib/Mojolicious/Plugin/EPRenderer.pm
  90. +0 −2 lib/Mojolicious/Plugin/HeaderCondition.pm
  91. +0 −2 lib/Mojolicious/Plugin/JSONConfig.pm
  92. +0 −2 lib/Mojolicious/Plugin/Mount.pm
  93. +0 −2 lib/Mojolicious/Plugin/PODRenderer.pm
  94. +0 −6 lib/Mojolicious/Plugin/PoweredBy.pm
  95. +0 −2 lib/Mojolicious/Plugin/RequestTimer.pm
  96. +0 −3 lib/Mojolicious/Plugin/TagHelpers.pm
  97. +0 −5 lib/Mojolicious/Plugins.pm
  98. +0 −4 lib/Mojolicious/Renderer.pm
  99. +0 −3 lib/Mojolicious/Routes.pm
  100. +0 −2 lib/Mojolicious/Routes/Match.pm
  101. +0 −2 lib/Mojolicious/Routes/Pattern.pm
  102. +0 −5 lib/Mojolicious/Routes/Route.pm
  103. +0 −2 lib/Mojolicious/Sessions.pm
  104. +0 −4 lib/Mojolicious/Static.pm
  105. +0 −3 lib/Mojolicious/Types.pm
  106. +0 −15 lib/Test/Mojo.pm
  107. +0 −5 lib/ojo.pm
  108. +0 −3 script/hypnotoad
  109. +0 −1 script/mojo
  110. +0 −7 script/morbo
  111. +0 −5 t/mojo/app.t
  112. +0 −4 t/mojo/asset.t
  113. +0 −4 t/mojo/base.t
  114. +0 −3 t/mojo/bytestream.t
  115. +0 −2 t/mojo/cache.t
  116. +0 −3 t/mojo/cgi.t
  117. +0 −1 t/mojo/collection.t
  118. +0 −2 t/mojo/content.t
  119. +0 −1 t/mojo/cookie.t
  120. +0 −3 t/mojo/cookiejar.t
  121. +0 −1 t/mojo/date.t
  122. +0 −2 t/mojo/delay.t
  123. +0 −2 t/mojo/dom.t
  124. +0 −1 t/mojo/eventemitter.t
  125. +0 −3 t/mojo/headers.t
  126. +0 −1 t/mojo/home.t
  127. +0 −1 t/mojo/hypnotoad.t
  128. +0 −4 t/mojo/ioloop.t
  129. +0 −1 t/mojo/ioloop_ipv6.t
  130. +8 −11 t/mojo/ioloop_tls.t
  131. +0 −1 t/mojo/json.t
  132. +0 −2 t/mojo/json_pointer.t
  133. +0 −4 t/mojo/lib/Mojo/BaseTest/Base1.pm
  134. +0 −1 t/mojo/lib/Mojo/BaseTest/Base2.pm
  135. +0 −2 t/mojo/lib/Mojo/BaseTest/Base3.pm
  136. +0 −3 t/mojo/lib/Mojo/LoaderException.pm
  137. +0 −1 t/mojo/lib/Mojo/LoaderException2.pm
  138. +0 −3 t/mojo/lib/Mojo/LoaderTest/A.pm
  139. +0 −1 t/mojo/lib/Mojo/LoaderTest/B.pm
  140. +0 −1 t/mojo/lib/Mojo/LoaderTest/C.pm
  141. +11 −13 t/mojo/loader.t
  142. +0 −3 t/mojo/log.t
  143. +0 −3 t/mojo/morbo.t
  144. +0 −1 t/mojo/parameters.t
  145. +0 −2 t/mojo/path.t
  146. +0 −1 t/mojo/psgi.t
  147. +0 −1 t/mojo/reactor_ev.t
  148. +0 −2 t/mojo/reactor_poll.t
  149. +0 −3 t/mojo/request.t
  150. +0 −2 t/mojo/request_cgi.t
  151. +0 −3 t/mojo/response.t
  152. +0 −2 t/mojo/template.t
  153. +0 −1 t/mojo/transactor.t
  154. +0 −2 t/mojo/url.t
  155. +0 −1 t/mojo/user_agent.t
  156. +0 −2 t/mojo/user_agent_online.t
  157. +0 −3 t/mojo/user_agent_tls.t
  158. +0 −1 t/mojo/util.t
  159. +0 −1 t/mojo/websocket.t
  160. +0 −2 t/mojo/websocket_frames.t
  161. +0 −2 t/mojo/websocket_proxy.t
  162. +0 −1 t/mojo/websocket_proxy_tls.t
  163. +0 −2 t/mojolicious/app.t
  164. +0 −4 t/mojolicious/caching_lite_app.t
  165. +0 −1 t/mojolicious/charset_lite_app.t
  166. +0 −1 t/mojolicious/command.t
  167. +0 −3 t/mojolicious/commands.t
  168. +0 −2 t/mojolicious/dispatch.t
  169. +0 −2 t/mojolicious/dispatcher_lite_app.t
  170. +0 −1 t/mojolicious/embedded_app.t
  171. +0 −4 t/mojolicious/embedded_lite_app.t
  172. +0 −3 t/mojolicious/exception_lite_app.t
  173. +0 −2 t/mojolicious/external/lib/MyApp.pm
  174. +0 −1 t/mojolicious/external/myapp.pl
  175. +0 −3 t/mojolicious/external/myapp2.pl
  176. +0 −6 t/mojolicious/external/script/my_app
  177. +0 −2 t/mojolicious/external_app.t
  178. +0 −1 t/mojolicious/external_lite_app.t
  179. +0 −1 t/mojolicious/group_lite_app.t
  180. +0 −2 t/mojolicious/json_config_lite_app.t
  181. +0 −3 t/mojolicious/json_config_mode_lite_app.t
  182. +0 −2 t/mojolicious/layouted_lite_app.t
  183. +0 −1 t/mojolicious/lib/EmbeddedTestApp.pm
  184. +0 −1 t/mojolicious/lib/MojoliciousConfigTest.pm
  185. +0 −1 t/mojolicious/lib/MojoliciousTest.pm
  186. +0 −2 t/mojolicious/lib/MojoliciousTest/Command/test_command.pm
  187. +0 −2 t/mojolicious/lib/MojoliciousTest/Exceptional.pm
  188. +0 −2 t/mojolicious/lib/MojoliciousTest/Foo.pm
  189. +0 −1 t/mojolicious/lib/MojoliciousTest/Foo/Bar.pm
  190. +0 −2 t/mojolicious/lib/MojoliciousTest/Plugin/Test/SomePlugin2.pm
  191. +0 −2 t/mojolicious/lib/MojoliciousTest/Plugin/UPPERCASETestPlugin.pm
  192. +0 −2 t/mojolicious/lib/MojoliciousTest/SyntaxError.pm
  193. +0 −2 t/mojolicious/lib/MojoliciousTest2/Foo.pm
  194. +0 −2 t/mojolicious/lib/MojoliciousTestController.pm
  195. +0 −2 t/mojolicious/lib/PluginWithEmbeddedApp.pm
  196. +0 −1 t/mojolicious/lib/PluginWithTemplate.pm
  197. +0 −2 t/mojolicious/lib/SingleFileTestApp.pm
  198. +0 −5 t/mojolicious/lite_app.t
  199. +0 −2 t/mojolicious/longpolling_lite_app.t
  200. +0 −2 t/mojolicious/multipath_lite_app.t
  201. +0 −1 t/mojolicious/ojo.t
  202. +0 −1 t/mojolicious/pattern.t
  203. +0 −3 t/mojolicious/pod_renderer_lite_app.t
  204. +0 −1 t/mojolicious/production_app.t
  205. +0 −2 t/mojolicious/rebased_lite_app.t
  206. +0 −2 t/mojolicious/renderer.t
  207. +0 −2 t/mojolicious/restful_lite_app.t
  208. +0 −1 t/mojolicious/routes.t
  209. +0 −1 t/mojolicious/tag_helper_lite_app.t
  210. +0 −1 t/mojolicious/testing_app.t
  211. +0 −4 t/mojolicious/tls_lite_app.t
  212. +0 −3 t/mojolicious/twinkle_lite_app.t
  213. +0 −1 t/mojolicious/types.t
  214. +0 −2 t/mojolicious/upload_lite_app.t
  215. +0 −3 t/mojolicious/upload_stream_lite_app.t
  216. +0 −6 t/mojolicious/websocket_lite_app.t
  217. +0 −1 t/pod.t
  218. +0 −2 t/pod_coverage.t
View
3 Changes
@@ -1,4 +1,7 @@
+3.36 2012-08-29
+ - Improved documentation.
+
3.35 2012-08-28
- Deprecated Mojolicious::Controller->render_content in favor of content
helper.
View
2 Makefile.PL
@@ -3,8 +3,6 @@ use 5.010001;
use strict;
use warnings;
-# "Son, when you participate in sporting events,
-# it's not whether you win or lose, it's how drunk you get."
use ExtUtils::MakeMaker;
WriteMakefile(
View
1 examples/connect-proxy.pl
@@ -2,7 +2,6 @@
use lib "$FindBin::Bin/../lib";
use Mojo::Base -strict;
-# "Cheating in a fake fight. That's low."
use Mojo::IOLoop;
# Minimal connect proxy server to test TLS tunneling
View
1 examples/entities.pl
@@ -2,7 +2,6 @@
use lib "$FindBin::Bin/../lib";
use Mojo::Base -strict;
-# "She's built like a steakhouse, but she handles like a bistro!"
use Mojo::ByteStream 'b';
use Mojo::UserAgent;
View
2 examples/fast.pl
@@ -2,8 +2,6 @@
use lib "$FindBin::Bin/../lib";
use Mojo::Base 'Mojolicious';
-# "This snow is beautiful. I'm glad global warming never happened.
-# Actually, it did. But thank God nuclear winter canceled it out."
sub handler {
my $tx = pop;
$tx->res->code(200)->body('Hello World!');
View
2 examples/hello.pl
@@ -2,8 +2,6 @@
use lib "$FindBin::Bin/../lib";
use Mojolicious::Lite;
-# "Amy, technology isn't intrinsically good or evil. It's how it's used.
-# Like the Death Ray."
get '/' => {data => 'Hello World!'};
# Minimal "Hello World" application for profiling
View
2 examples/microhttpd.pl
@@ -2,8 +2,6 @@
use lib "$FindBin::Bin/../lib";
use Mojo::Base -strict;
-# "Kif, I'm feeling the Captain's Itch.
-# I'll get the powder, sir."
use Mojo::IOLoop;
# Minimal ioloop example demonstrating how to cheat at HTTP benchmarks :)
View
3 examples/websocket.pl
@@ -2,9 +2,6 @@
use lib "$FindBin::Bin/../lib";
use Mojolicious::Lite;
-# "Stop being such a spineless jellyfish!
-# You know full well I'm more closely related to the sea cucumber.
-# Not where it counts."
any '/' => sub {
my $self = shift;
$self->on(message => sub { shift->send(shift) }) if $self->tx->is_websocket;
View
2 lib/Mojo.pm
@@ -22,7 +22,6 @@ has ua => sub {
return $ua;
};
-# "Oh, so they have internet on computers now!"
sub new {
my $self = shift->SUPER::new(@_);
@@ -40,7 +39,6 @@ sub build_tx { Mojo::Transaction::HTTP->new }
sub config { shift->_dict(config => @_) }
-# "D'oh."
sub handler { croak 'Method "handler" not implemented in subclass' }
sub _dict {
View
1 lib/Mojo/Asset.pm
@@ -6,7 +6,6 @@ use Carp 'croak';
has 'end_range';
has start_range => 0;
-# "Marge, it takes two to lie. One to lie and one to listen."
sub add_chunk { croak 'Method "add_chunk" not implemented by subclass' }
sub contains { croak 'Method "contains" not implemented by subclass' }
sub get_chunk { croak 'Method "get_chunk" not implemented by subclass' }
View
4 lib/Mojo/Asset/File.pm
@@ -37,10 +37,6 @@ has handle => sub {
};
has tmpdir => sub { $ENV{MOJO_TMPDIR} || File::Spec->tmpdir };
-# "The only monster here is the gambling monster that has enslaved your
-# mother!
-# I call him Gamblor, and it's time to snatch your mother from his neon
-# claws!"
sub DESTROY {
my $self = shift;
return unless $self->cleanup && defined(my $path = $self->path);
View
3 lib/Mojo/Asset/Memory.pm
@@ -7,9 +7,6 @@ use Mojo::Util 'spurt';
has 'auto_upgrade';
has max_memory_size => sub { $ENV{MOJO_MAX_MEMORY_SIZE} || 262144 };
-# "There's your giraffe, little girl.
-# I'm a boy.
-# That's the spirit. Never give up."
sub new { shift->SUPER::new(@_, content => '') }
sub add_chunk {
View
2 lib/Mojo/Base.pm
@@ -12,8 +12,6 @@ use Carp ();
# Only Perl 5.14+ requires it on demand
use IO::Handle ();
-# "Kids, you tried your best and you failed miserably.
-# The lesson is, never try."
sub import {
my $class = shift;
return unless my $flag = shift;
View
11 lib/Mojo/ByteStream.pm
@@ -27,8 +27,6 @@ my @UTILS = (
}
}
-# "Do we have any food that wasn't brutally slaughtered?
-# Well, I think the veal died of loneliness."
sub new {
my $class = shift;
return bless \(my $dummy = join '', @_), ref $class || $class;
@@ -41,11 +39,6 @@ sub clone {
return $self->new($$self);
}
-# "I want to share something with you: The three little sentences that will
-# get you through life.
-# Number 1: 'Cover for me.'
-# Number 2: 'Oh, good idea, Boss!'
-# Number 3: 'It was like that when I got here.'"
sub decode {
my $self = shift;
$$self = Mojo::Util::decode shift || 'UTF-8', $$self;
@@ -58,9 +51,6 @@ sub encode {
return $self;
}
-# "Old people don't need companionship.
-# They need to be isolated and studied so it can be determined what
-# nutrients they have that might be extracted for our personal use."
sub say {
my ($self, $handle) = @_;
$handle ||= \*STDOUT;
@@ -76,7 +66,6 @@ sub split {
return Mojo::Collection->new(map { $self->new($_) } split $pattern, $$self);
}
-# "My cat's breath smells like cat food."
sub to_string { ${shift()} }
1;
View
6 lib/Mojo/Cache.pm
@@ -3,14 +3,8 @@ use Mojo::Base -base;
has 'max_keys' => 100;
-# "If at first you don't succeed, give up."
sub get { (shift->{cache} || {})->{shift()} }
-# "Maybe I should hook up with you guys.
-# After all, how long do any of us have to live?
-# Well, if you like the ribwich, not very.
-# *holds up ribwich box with Krusty saying 'WILL CAUSE EARLY DEATH'*
-# D'oh!"
sub set {
my ($self, $key, $value) = @_;
View
11 lib/Mojo/Collection.pm
@@ -5,7 +5,6 @@ use overload
'""' => sub { shift->join("\n") },
fallback => 1;
-# "Sweet Zombie Jesus!"
use Exporter 'import';
use List::Util;
use Mojo::ByteStream;
@@ -33,9 +32,6 @@ sub first {
return List::Util::first { $_ ~~ $cb } @$self;
}
-# "All right, let's not panic.
-# I'll make the money by selling one of my livers.
-# I can get by with one."
sub grep {
my ($self, $cb) = @_;
return $self->new(grep { $_ ~~ $cb } @$self);
@@ -51,8 +47,6 @@ sub map {
return $self->new(map { $_->$cb } @$self);
}
-# "Facts are meaningless.
-# You could use facts to prove anything that's even remotely true!"
sub pluck {
my ($self, $method, @args) = @_;
return $self->map(sub { $_->$method(@args) });
@@ -63,9 +57,6 @@ sub reverse {
return $self->new(reverse @$self);
}
-# "You told Bart to kiss that girl?
-# Why not encourage him to knock her out and drag her to a cave?
-# Second base? Oh, Bart is a little too young for that."
sub shuffle {
my $self = shift;
return $self->new(List::Util::shuffle @$self);
@@ -84,8 +75,6 @@ sub sort {
return $self->new(sort { $a->$cb($b) } @$self);
}
-# "Christmas is a time when people of all religions come together to worship
-# Jesus Christ."
sub uniq {
my $self = shift;
my %seen;
View
2 lib/Mojo/Content.pm
@@ -20,7 +20,6 @@ sub boundary {
return;
}
-# "Operator! Give me the number for 911!"
sub build_body { shift->_build('get_body_chunk') }
sub build_headers { shift->_build('get_header_chunk') }
@@ -181,7 +180,6 @@ sub write {
return $self;
}
-# "Here's to alcohol, the cause of-and solution to-all life's problems."
sub write_chunk {
my ($self, $chunk, $cb) = @_;
View
3 lib/Mojo/Cookie.pm
@@ -10,9 +10,6 @@ use Mojo::Util 'unquote';
has [qw(name value)];
-# "My Homer is not a communist.
-# He may be a liar, a pig, an idiot, a communist,
-# but he is not a porn star."
sub parse { croak 'Method "parse" not implemented by subclass' }
sub to_string { croak 'Method "to_string" not implemented by subclass' }
View
3 lib/Mojo/Cookie/Request.pm
@@ -3,9 +3,6 @@ use Mojo::Base 'Mojo::Cookie';
use Mojo::Util 'quote';
-# "Lisa, would you like a donut?
-# No thanks. Do you have any fruit?
-# This has purple in it. Purple is a fruit."
sub parse {
my ($self, $string) = @_;
View
3 lib/Mojo/Cookie/Response.pm
@@ -22,9 +22,6 @@ sub expires {
return $self;
}
-# "Remember the time he ate my goldfish?
-# And you lied and said I never had goldfish.
-# Then why did I have the bowl Bart? Why did I have the bowl?"
sub parse {
my ($self, $string) = @_;
View
5 lib/Mojo/DOM.pm
@@ -29,8 +29,6 @@ sub AUTOLOAD {
sub DESTROY { }
-# "How are the kids supposed to get home?
-# I dunno. Internet?"
sub new {
my $class = shift;
my $self = bless [Mojo::DOM::HTML->new], ref $class || $class;
@@ -73,7 +71,6 @@ sub attrs {
sub charset { shift->_parser(charset => @_) }
-# "Oh boy! Sleep! That's when I'm a Viking!"
sub children {
my ($self, $type) = @_;
@@ -113,7 +110,6 @@ sub content_xml {
return $result;
}
-# "But I was going to loot you a present."
sub find {
my ($self, $selector) = @_;
@@ -290,7 +286,6 @@ sub type {
return $self;
}
-# "I want to set the record straight, I thought the cop was a prostitute."
sub xml { shift->_parser(xml => @_) }
sub _add {
View
5 lib/Mojo/DOM/CSS.pm
@@ -33,7 +33,6 @@ my $TOKEN_RE = qr/
)?
/x;
-# "Why can't she just drink herself happy like a normal person?"
sub select {
my $self = shift;
@@ -182,7 +181,6 @@ sub _compile {
return $pattern;
}
-# "Rock stars... is there anything they don't know?"
sub _equation {
my ($self, $equation) = @_;
@@ -360,9 +358,6 @@ sub _sibling {
return;
}
-# "All right, brain.
-# You don't like me and I don't like you,
-# but let's just do this and I can get back to killing you with beer."
sub _unescape {
my ($self, $value) = @_;
View
7 lib/Mojo/DOM/HTML.pm
@@ -75,9 +75,6 @@ my @HTML5_INLINE = (
);
my %INLINE = map { $_ => 1 } @HTML4_INLINE, @HTML5_INLINE;
-# "No one believes me.
-# I believe you, dad.
-# Then can you stop the cats from swearing?"
sub parse {
my ($self, $html) = @_;
@@ -160,8 +157,6 @@ sub render {
return $charset ? encode($charset, $content) : $content;
}
-# "Woah! God is so in your face!
-# Yeah, he's my favorite fictional character."
sub _cdata {
my ($self, $cdata, $current) = @_;
push @$$current, ['cdata', $cdata];
@@ -321,8 +316,6 @@ sub _render {
return $content;
}
-# "It's not important to talk about who got rich off of whom,
-# or who got exposed to tainted what..."
sub _start {
my ($self, $start, $attrs, $current) = @_;
View
6 lib/Mojo/Date.pm
@@ -17,10 +17,6 @@ my %MONTHS;
sub new { shift->SUPER::new->parse(@_) }
-# "I suggest you leave immediately.
-# Or what? You'll release the dogs or the bees?
-# Or the dogs with bees in their mouths and when they bark they shoot bees
-# at you?"
sub parse {
my ($self, $date) = @_;
@@ -57,8 +53,6 @@ sub parse {
return $self;
}
-# "But going through a divorce together,
-# you can't pretend that didn't bring us closer together."
sub to_string {
my $self = shift;
View
10 lib/Mojo/EventEmitter.pm
@@ -5,13 +5,6 @@ use Scalar::Util qw(blessed weaken);
use constant DEBUG => $ENV{MOJO_EVENTEMITTER_DEBUG} || 0;
-# "Are we there yet?
-# No
-# Are we there yet?
-# No
-# Are we there yet?
-# No
-# ...Where are we going?"
sub emit {
my ($self, $name) = (shift, shift);
@@ -68,9 +61,6 @@ sub once {
sub subscribers { shift->{events}{shift()} || [] }
-# "Back you robots!
-# Nobody ruins my family vacation but me!
-# And maybe the boy."
sub unsubscribe {
my ($self, $name, $cb) = @_;
View
4 lib/Mojo/Exception.pm
@@ -11,8 +11,6 @@ has [qw(frames line lines_before lines_after)] => sub { [] };
has [qw(message raw_message)] => 'Exception!';
has verbose => sub { $ENV{MOJO_EXCEPTION_VERBOSE} || 0 };
-# "Attempted murder? Now honestly, what is that?
-# Do they give a Nobel Prize for attempted chemistry?"
sub new {
my $self = shift->SUPER::new;
return @_ ? $self->_detect(@_) : $self;
@@ -48,8 +46,6 @@ sub trace {
return $self->frames(\@frames);
}
-# "You killed zombie Flanders!
-# He was a zombie?"
sub _context {
my ($self, $line, $lines) = @_;
View
5 lib/Mojo/Headers.pm
@@ -63,7 +63,6 @@ sub from_hash {
return $self;
}
-# "Will you be my mommy? You smell like dead bunnies..."
sub header {
my ($self, $name) = (shift, shift);
@@ -125,8 +124,6 @@ sub parse {
return $self;
}
-# "You don't like your job, you don't strike.
-# You go in every day and do it really half-assed. That's the American way."
sub referrer { scalar shift->header(Referer => @_) }
sub remove {
@@ -158,8 +155,6 @@ sub to_hash {
return \%hash;
}
-# "The only thing I asked you to do for this party was put on clothes,
-# and you didn't do it."
sub to_string {
my $self = shift;
View
1 lib/Mojo/HelloWorld.pm
@@ -1,7 +1,6 @@
package Mojo::HelloWorld;
use Mojolicious::Lite;
-# "Does whisky count as beer?"
app->log->level('error')->path(undef);
any '/*whatever' => {whatever => '', text => 'Your Mojo is working!'};
View
5 lib/Mojo/Home.pm
@@ -12,8 +12,6 @@ use File::Spec::Functions qw(abs2rel catdir catfile splitdir);
use FindBin;
use Mojo::Util qw(class_to_path slurp);
-# "I'm normally not a praying man, but if you're up there,
-# please save me Superman."
sub new { shift->SUPER::new->parse(@_) }
sub detect {
@@ -73,9 +71,6 @@ sub list_files {
sub mojo_lib_dir { catdir(dirname(__FILE__), '..') }
-# "Don't worry, son.
-# I'm sure he's up in heaven right now laughing it up with all the other
-# celebrities: John Dilinger, Ty Cobb, Joseph Stalin."
sub parse {
my ($self, $path) = @_;
return $self unless defined $path;
View
8 lib/Mojo/IOLoop.pm
@@ -69,7 +69,6 @@ sub client {
return $id;
}
-# "I didn't think it was physically possible, but this both sucks and blows."
sub delay {
my $self = shift;
$self = $self->singleton unless ref $self;
@@ -107,8 +106,6 @@ sub remove {
$self->_remove($id);
}
-# "Fat Tony is a cancer on this fair city!
-# He is the cancer and I am the... uh... what cures cancer?"
sub server {
my ($self, $cb) = (shift, pop);
$self = $self->singleton unless ref $self;
@@ -208,7 +205,6 @@ sub _id {
return $id;
}
-# "She is well traveled, and I don't mean she travels a lot."
sub _manage {
my $self = shift;
@@ -245,10 +241,6 @@ sub _not_accepting {
$_->stop for values %{$self->{servers} || {}};
}
-# "I am trying to save myself from going to Hell.
-# Jews don't believe in Hell.
-# No Hell! Thank you kid, you made my day.
-# *heads over to the Gaza Strip Club*"
sub _remove {
my ($self, $id) = @_;
View
4 lib/Mojo/IOLoop/Client.pm
@@ -18,15 +18,13 @@ use constant TLS => $ENV{MOJO_NO_TLS} ? 0
use constant TLS_READ => TLS ? IO::Socket::SSL::SSL_WANT_READ() : 0;
use constant TLS_WRITE => TLS ? IO::Socket::SSL::SSL_WANT_WRITE() : 0;
-# "It's like my dad always said: eventually, everybody gets shot."
has reactor => sub {
require Mojo::IOLoop;
Mojo::IOLoop->singleton->reactor;
};
sub DESTROY { shift->_cleanup }
-# "I wonder where Bart is, his dinner's getting all cold... and eaten."
sub connect {
my $self = shift;
my $args = ref $_[0] ? $_[0] : {@_};
@@ -89,8 +87,6 @@ sub _tls {
$self->_cleanup->emit_safe(connect => $handle);
}
-# "Have you ever seen that Blue Man Group? Total ripoff of the Smurfs.
-# And the Smurfs, well, they SUCK."
sub _try {
my ($self, $args) = @_;
View
3 lib/Mojo/IOLoop/Delay.pm
@@ -5,7 +5,6 @@ use Mojo::IOLoop;
has ioloop => sub { Mojo::IOLoop->singleton };
-# "Ah, alcohol and night-swimming. It's a winning combination."
sub begin {
my $self = shift;
my $id = $self->{counter}++;
@@ -21,8 +20,6 @@ sub steps {
return $self;
}
-# "Mrs. Simpson, bathroom is not for customers.
-# Please use the crack house across the street."
sub wait {
my $self = shift;
my @args;
View
7 lib/Mojo/IOLoop/Server.pm
@@ -31,9 +31,6 @@ has reactor => sub {
Mojo::IOLoop->singleton->reactor;
};
-# "Your guilty consciences may make you vote Democratic, but secretly you all
-# yearn for a Republican president to lower taxes, brutalize criminals, and
-# rule you like a king!"
sub DESTROY {
my $self = shift;
if (my $port = $self->{port}) { $ENV{MOJO_REUSE} =~ s/(?:^|\,)$port\:\d+// }
@@ -42,8 +39,6 @@ sub DESTROY {
$reactor->remove($_) for values %{$self->{handles}};
}
-# "And I gave that man directions, even though I didn't know the way,
-# because that's the kind of guy I am this week."
sub listen {
my $self = shift;
my $args = ref $_[0] ? $_[0] : {@_};
@@ -143,8 +138,6 @@ sub _accept {
$self->{handles}{$handle} = $handle;
}
-# "Where on my badge does it say anything about protecting people?
-# Uh, second word, chief."
sub _tls {
my ($self, $handle) = @_;
View
8 lib/Mojo/IOLoop/Stream.pm
@@ -11,10 +11,6 @@ has reactor => sub {
};
has timeout => 15;
-# "And America has so many enemies.
-# Iran, Iraq, China, Mordor, the hoochies that laid low Tiger Woods,
-# undesirable immigrants - by which I mean everyone that came after me,
-# including my children..."
sub DESTROY { shift->close }
sub new { shift->SUPER::new(handle => shift, buffer => '', active => time) }
@@ -60,8 +56,6 @@ sub stop {
$self->reactor->watch($self->{handle}, 0, $self->is_writing);
}
-# "No children have ever meddled with the Republican Party and lived to tell
-# about it."
sub steal_handle {
my $self = shift;
$self->reactor->remove($self->{handle});
@@ -128,8 +122,6 @@ sub _startup {
$reactor->io($self->{handle}, sub { pop() ? $self->_write : $self->_read });
}
-# "Oh, I'm in no condition to drive. Wait a minute.
-# I don't have to listen to myself. I'm drunk."
sub _write {
my $self = shift;
View
3 lib/Mojo/JSON.pm
@@ -37,7 +37,6 @@ my $UTF_PATTERNS = {
my $WHITESPACE_RE = qr/[\x20\x09\x0a\x0d]*/;
-# "Hey...That's not the wallet inspector..."
sub decode {
my ($self, $bytes) = @_;
@@ -209,8 +208,6 @@ sub _decode_string {
return $buffer . substr $str, pos($str), length($str);
}
-# "Eternity with nerds.
-# It's the Pasadena Star Trek convention all over again."
sub _decode_value {
# Leading whitespace
View
2 lib/Mojo/JSON/Pointer.pm
@@ -7,8 +7,6 @@ use Scalar::Util 'looks_like_number';
sub contains { shift->_pointer(1, @_) }
sub get { shift->_pointer(0, @_) }
-# "Google, even though you've enslaved half the world,
-# you're still a damn fine search engine."
sub _pointer {
my ($self, $contains, $data, $pointer) = @_;
View
5 lib/Mojo/Loader.pm
@@ -9,14 +9,11 @@ use Mojo::Util qw(b64_decode class_to_path);
# Cache
my %CACHE;
-# "Homer no function beer well without."
sub data {
my ($self, $class, $data) = @_;
return $class ? $data ? _all($class)->{$data} : _all($class) : undef;
}
-# "Olive oil? Asparagus? If your mother wasn't so fancy,
-# we could just shop at the gas station like normal people."
sub load {
my ($self, $module) = @_;
@@ -34,8 +31,6 @@ sub load {
return Mojo::Exception->new($@);
}
-# "This is the worst thing you've ever done.
-# You say that so often that it lost its meaning."
sub search {
my ($self, $namespace) = @_;
View
4 lib/Mojo/Log.pm
@@ -4,7 +4,6 @@ use Mojo::Base 'Mojo::EventEmitter';
use Carp 'croak';
use Fcntl ':flock';
-# "Would you kindly shut your noise-hole?"
has handle => sub {
# File
@@ -30,7 +29,6 @@ sub new {
return $self;
}
-# "Yes, I got the most! I win X-Mas!"
sub debug { shift->log(debug => @_) }
sub error { shift->log(error => @_) }
sub fatal { shift->log(fatal => @_) }
@@ -55,8 +53,6 @@ sub is_level {
sub is_warn { shift->is_level('warn') }
-# "If The Flintstones has taught us anything,
-# it's that pelicans can be used to mix cement."
sub log { shift->emit('message', lc(shift), @_) }
sub warn { shift->log(warn => @_) }
View
7 lib/Mojo/Message.pm
@@ -18,9 +18,6 @@ has max_line_size => sub { $ENV{MOJO_MAX_LINE_SIZE} || 10240 };
has max_message_size => sub { $ENV{MOJO_MAX_MESSAGE_SIZE} || 5242880 };
has version => '1.1';
-# "I'll keep it short and sweet. Family. Religion. Friendship.
-# These are the three demons you must slay if you wish to succeed in
-# business."
sub body {
my $self = shift;
@@ -80,10 +77,6 @@ sub body_params {
sub body_size { shift->content->body_size }
-# "My new movie is me, standing in front of a brick wall for 90 minutes.
-# It cost 80 million dollars to make.
-# How do you sleep at night?
-# On top of a pile of money, with many beautiful women."
sub build_body { shift->_build('get_body_chunk') }
sub build_headers { shift->_build('get_header_chunk') }
sub build_start_line { shift->_build('get_start_line_chunk') }
View
2 lib/Mojo/Message/Request.pm
@@ -188,8 +188,6 @@ sub parse {
return $self;
}
-# "Bart, with $10,000, we'd be millionaires!
-# We could buy all kinds of useful things like...love!"
sub proxy {
my $self = shift;
return $self->{proxy} unless @_;
View
2 lib/Mojo/Message/Response.pm
@@ -91,8 +91,6 @@ sub cookies {
sub default_message { $MESSAGES{$_[1] || $_[0]->code || 404} || '' }
-# "Weaseling out of things is important to learn.
-# It's what separates us from the animals... except the weasel."
sub extract_start_line {
my ($self, $bufferref) = @_;
View
7 lib/Mojo/Parameters.pm
@@ -10,11 +10,6 @@ use Mojo::Util qw(decode encode url_escape url_unescape);
has charset => 'UTF-8';
has pair_separator => '&';
-# "Yeah, Moe, that team sure did suck last night. They just plain sucked!
-# I've seen teams suck before,
-# but they were the suckiest bunch of sucks that ever sucked!
-# HOMER!
-# I gotta go Moe my damn weiner kids are listening."
sub new {
my $self = shift->SUPER::new;
@@ -122,8 +117,6 @@ sub parse {
return $self;
}
-# "Don't kid yourself, Jimmy. If a cow ever got the chance,
-# he'd eat you and everyone you care about!"
sub remove {
my $self = shift;
my $name = shift // '';
View
8 lib/Mojo/Path.pm
@@ -37,9 +37,6 @@ sub canonicalize {
return $self->parts(\@parts);
}
-# "Homer, the plant called.
-# They said if you don't show up tomorrow don't bother showing up on Monday.
-# Woo-hoo. Four-day weekend."
sub clone {
my $self = shift;
my $clone = Mojo::Path->new;
@@ -89,11 +86,6 @@ sub to_abs_string {
return $self->leading_slash ? "$self" : "/$self";
}
-# "How is education supposed to make me feel smarter?
-# Besides, every time I learn something new,
-# it pushes some old stuff out of my brain.
-# Remember when I took that home winemaking course,
-# and I forgot how to drive?"
sub to_string {
my $self = shift;
View
4 lib/Mojo/Reactor.pm
@@ -5,17 +5,13 @@ use Carp 'croak';
use IO::Poll qw(POLLERR POLLHUP POLLIN);
use Mojo::Loader;
-# "This is the worst part. The calm before the battle.
-# And then the battle is not so bad?
-# Oh, right. I forgot about the battle."
sub detect {
my $try = $ENV{MOJO_REACTOR} || 'Mojo::Reactor::EV';
return Mojo::Loader->new->load($try) ? 'Mojo::Reactor::Poll' : $try;
}
sub io { croak 'Method "io" not implemented by subclass' }
-# "This was such a pleasant St. Patrick's Day until Irish people showed up."
sub is_readable {
my ($self, $handle) = @_;
View
3 lib/Mojo/Reactor/EV.pm
@@ -17,8 +17,6 @@ sub one_tick { EV::run(EV::RUN_ONCE) }
sub recurring { shift->_timer(1, @_) }
-# "Wow, Barney. You brought a whole beer keg.
-# Yeah... where do I fill it up?"
sub start {EV::run}
sub stop { EV::break(EV::BREAK_ALL) }
@@ -52,7 +50,6 @@ sub _io {
if EV::WRITE &$revents && $self->{io}{$fd};
}
-# "It's great! We can do *anything* now that Science has invented Magic."
sub _timer {
my ($self, $recurring, $after, $cb) = @_;
$after ||= '0.0001';
View
7 lib/Mojo/Reactor/Poll.pm
@@ -6,11 +6,6 @@ use List::Util 'min';
use Mojo::Util 'md5_sum';
use Time::HiRes qw(time usleep);
-# "I don't know.
-# Can I really betray my country?
-# I say the Pledge of Allegiance every day.
-# You pledge allegiance to the flag.
-# And the flag is made in China."
sub io {
my ($self, $handle, $cb) = @_;
$self->{io}{fileno $handle} = {cb => $cb};
@@ -87,8 +82,6 @@ sub start {
sub stop { delete shift->{running} }
-# "Bart, how did you get a cellphone?
-# The same way you got me, by accident on a golf course."
sub timer { shift->_timer(0, @_) }
sub watch {
View
11 lib/Mojo/Server.pm
@@ -14,9 +14,6 @@ sub new {
return $self;
}
-# "Lisa, if the Bible has taught us nothing else, and it hasn't,
-# it's that girls should stick to girls sports,
-# such as hot oil wrestling and foxy boxing and such."
sub build_app {
my ($self, $app) = @_;
local $ENV{MOJO_EXE};
@@ -46,14 +43,6 @@ EOF
return $self->app($app)->app;
}
-# "Are you saying you're never going to eat any animal again? What about
-# bacon?
-# No.
-# Ham?
-# No.
-# Pork chops?
-# Dad, those all come from the same animal.
-# Heh heh heh. Ooh, yeah, right, Lisa. A wonderful, magical animal."
sub run { croak 'Method "run" not implemented by subclass' }
1;
View
3 lib/Mojo/Server/CGI.pm
@@ -3,9 +3,6 @@ use Mojo::Base 'Mojo::Server';
has 'nph';
-# "Lisa, you're a Buddhist, so you believe in reincarnation.
-# Eventually, Snowball will be reborn as a higher lifeform...
-# like a snowman."
sub run {
my $self = shift;
View
2 lib/Mojo/Server/Daemon.pm
@@ -23,8 +23,6 @@ sub DESTROY {
$loop->remove($_) for @{$self->{listening} || []};
}
-# "40 dollars!? This better be the best damn beer ever..
-# *drinks beer* You got lucky."
sub run {
my $self = shift;
View
18 lib/Mojo/Server/Hypnotoad.pm
@@ -23,20 +23,6 @@ sub DESTROY {
if (my $file = $self->{config}{lock_file}) { unlink $file if -w $file }
}
-# "Marge? Since I'm not talking to Lisa,
-# would you please ask her to pass me the syrup?
-# Dear, please pass your father the syrup, Lisa.
-# Bart, tell Dad I will only pass the syrup if it won't be used on any meat
-# product.
-# You dunkin' your sausages in that syrup homeboy?
-# Marge, tell Bart I just want to drink a nice glass of syrup like I do
-# every morning.
-# Tell him yourself, you're ignoring Lisa, not Bart.
-# Bart, thank your mother for pointing that out.
-# Homer, you're not not-talking to me and secondly I heard what you said.
-# Lisa, tell your mother to get off my case.
-# Uhhh, dad, Lisa's the one you're not talking to.
-# Bart, go to your room."
sub run {
my ($self, $path) = @_;
@@ -261,9 +247,6 @@ sub _pid_file {
print $pid $$;
}
-# "Dear Mr. President, there are too many states nowadays.
-# Please eliminate three.
-# P.S. I am not a crackpot."
sub _reap {
my ($self, $pid) = @_;
@@ -280,7 +263,6 @@ sub _reap {
}
}
-# "I hope this has taught you kids a lesson: kids never learn."
sub _spawn {
my $self = shift;
View
14 lib/Mojo/Server/Morbo.pm
@@ -7,11 +7,6 @@ use POSIX 'WNOHANG';
has watch => sub { [qw(lib templates)] };
-# "All in all, this is one day Mittens the kitten won't soon forget.
-# Kittens give Morbo gas.
-# In lighter news, the city of New New York is doomed.
-# Blame rests with known human Professor Hubert Farnsworth and his tiny,
-# inferior brain."
sub check_file {
my ($self, $file) = @_;
@@ -39,11 +34,6 @@ sub run {
exit 0;
}
-# "And so with two weeks left in the campaign, the question on everyone's
-# mind is, who will be the president of Earth?
-# Jack Johnson or bitter rival John Jackson.
-# Two terrific candidates, Morbo?
-# All humans are vermin in the eyes of Morbo!"
sub _manage {
my $self = shift;
@@ -77,10 +67,6 @@ sub _reap {
while ((my $pid = waitpid -1, WNOHANG) > 0) { delete $self->{running} }
}
-# "Morbo cannot read his teleprompter.
-# He forgot how you say that letter that looks like a man wearing a hat.
-# It's a T. It goes 'tuh'.
-# Hello, little man. I will destroy you!"
sub _spawn {
my $self = shift;
View
7 lib/Mojo/Server/PSGI.pm
@@ -1,10 +1,6 @@
package Mojo::Server::PSGI;
use Mojo::Base 'Mojo::Server';
-# "Things aren't as happy as they used to be down here at the unemployment
-# office.
-# Joblessness is no longer just for philosophy majors.
-# Useful people are starting to feel the pinch."
sub run {
my ($self, $env) = @_;
@@ -48,9 +44,6 @@ sub to_psgi_app {
return sub { $self->run(@_) }
}
-# "Wow! Homer must have got one of those robot cars!
-# *Car crashes in background*
-# Yeah, one of those AMERICAN robot cars."
package Mojo::Server::PSGI::_IO;
use Mojo::Base -base;
View
2 lib/Mojo/Template.pm
@@ -8,7 +8,6 @@ use Mojo::Util qw(decode encode slurp);
use constant DEBUG => $ENV{MOJO_TEMPLATE_DEBUG} || 0;
-# "If for any reason you're not completely satisfied, I hate you."
has [qw(auto_escape compiled)];
has [qw(append code prepend template)] => '';
has capture_end => 'end';
@@ -148,7 +147,6 @@ sub interpret {
return Mojo::Exception->new($@, [$self->template], $self->name)->verbose(1);
}
-# "I am so smart! I am so smart! S-M-R-T! I mean S-M-A-R-T..."
sub parse {
my ($self, $tmpl) = @_;
View
1 lib/Mojo/Transaction.pm
@@ -9,7 +9,6 @@ has [qw(kept_alive local_address local_port previous remote_port)];
has req => sub { Mojo::Message::Request->new };
has res => sub { Mojo::Message::Response->new };
-# "Please don't eat me! I have a wife and kids. Eat them!"
sub client_close { shift->server_close(@_) }
sub client_read { croak 'Method "client_read" not implemented by subclass' }
View
2 lib/Mojo/Transaction/HTTP.pm
@@ -3,8 +3,6 @@ use Mojo::Base 'Mojo::Transaction';
use Mojo::Transaction::WebSocket;
-# "What's a wedding? Webster's dictionary describes it as the act of
-# removing weeds from one's garden."
sub client_read {
my ($self, $chunk) = @_;
View
2 lib/Mojo/Transaction/WebSocket.pm
@@ -1,8 +1,6 @@
package Mojo::Transaction::WebSocket;
use Mojo::Base 'Mojo::Transaction';
-# "I'm not calling you a liar but...
-# I can't think of a way to finish that sentence."
use Config;
use Mojo::Transaction::HTTP;
use Mojo::Util qw(b64_encode decode encode sha1_bytes);
View
5 lib/Mojo/URL.pm
@@ -12,8 +12,6 @@ use Mojo::Util qw(punycode_decode punycode_encode url_escape url_unescape);
has [qw(fragment host port scheme userinfo)];
has base => sub { Mojo::URL->new };
-# "Homer, it's easy to criticize.
-# Fun, too."
sub new { shift->SUPER::new->parse(@_) }
sub authority {
@@ -193,9 +191,6 @@ sub to_rel {
return $rel;
}
-# "Dad, what's a Muppet?
-# Well, it's not quite a mop, not quite a puppet, but man... *laughs*
-# So, to answer you question, I don't know."
sub to_string {
my $self = shift;
View
4 lib/Mojo/Upload.pm
@@ -9,10 +9,6 @@ has asset => sub { Mojo::Asset::File->new };
has [qw(filename name)];
has headers => sub { Mojo::Headers->new };
-# "B-6
-# You sunk my scrabbleship!
-# This game makes no sense.
-# Tell that to the good men who just lost their lives... SEMPER-FI!"
sub move_to {
my $self = shift;
$self->asset->move_to(@_);
View
1 lib/Mojo/UserAgent.pm
@@ -13,7 +13,6 @@ use Scalar::Util 'weaken';
use constant DEBUG => $ENV{MOJO_USERAGENT_DEBUG} || 0;
-# "You can't let a single bad experience scare you away from drugs."
has ca => sub { $ENV{MOJO_CA_FILE} };
has cert => sub { $ENV{MOJO_CERT_FILE} };
has connect_timeout => sub { $ENV{MOJO_CONNECT_TIMEOUT} || 10 };
View
10 lib/Mojo/UserAgent/CookieJar.pm
@@ -5,12 +5,6 @@ use Mojo::Cookie::Request;
has max_cookie_size => 4096;
-# "I can't help but feel this is all my fault.
-# It was those North Korean fortune cookies - they were so insulting.
-# 'You are a coward'
-# Nobody wants to hear that after a nice meal.
-# Marge, you can't keep blaming yourself.
-# Just blame yourself once, then move on."
sub add {
my ($self, @cookies) = @_;
@@ -48,10 +42,6 @@ sub extract {
}
}
-# "Dear Homer, IOU one emergency donut.
-# Signed Homer.
-# Bastard!
-# He's always one step ahead."
sub find {
my ($self, $url) = @_;
View
6 lib/Mojo/UserAgent/Transactor.pm
@@ -102,8 +102,6 @@ sub json {
return $tx;
}
-# "This kid's a wonder!
-# He organized all the law suits against me into one class action suit."
sub peer {
my ($self, $tx) = @_;
return $self->_proxy($tx, $self->endpoint($tx));
@@ -158,9 +156,6 @@ sub redirect {
return $new->previous($old);
}
-# "America's health care system is second only to Japan...
-# Canada, Sweden, Great Britain... well, all of Europe.
-# But you can thank your lucky stars we don't live in Paraguay!"
sub tx {
my $self = shift;
@@ -180,7 +175,6 @@ sub tx {
return $tx;
}
-# "She found my one weakness... that I'm weak!"
sub websocket {
my $self = shift;
View
4 lib/Mojo/Util.pm
@@ -35,7 +35,6 @@ my %ENTITIES;
my %REVERSE = ("\x{0027}" => '#39;');
$REVERSE{$ENTITIES{$_}} //= $_ for sort grep {/;/} keys %ENTITIES;
-# "Bart, stop pestering Satan!"
our @EXPORT_OK = (
qw(b64_decode b64_encode camelize class_to_file class_to_path decamelize),
qw(decode encode get_line hmac_md5_sum hmac_sha1_sum html_escape),
@@ -115,8 +114,6 @@ sub html_escape {
return $string;
}
-# "Daddy, I'm scared. Too scared to even wet my pants.
-# Just relax and it'll come, son."
sub html_unescape {
my $string = shift;
$string
@@ -306,7 +303,6 @@ sub url_escape {
return $string;
}
-# "I've gone back in time to when dinosaurs weren't just confined to zoos."
sub url_unescape {
my $string = shift;
return $string if index($string, '%') == -1;
View
15 lib/Mojolicious.pm
@@ -13,7 +13,6 @@ use Mojolicious::Static;
use Mojolicious::Types;
use Scalar::Util qw(blessed weaken);
-# "Robots don't have any emotions, and sometimes that makes me very sad."
has commands => sub {
my $commands = Mojolicious::Commands->new(app => shift);
weaken $commands->{app};
@@ -38,10 +37,8 @@ has static => sub { Mojolicious::Static->new };
has types => sub { Mojolicious::Types->new };
our $CODENAME = 'Rainbow';
-our $VERSION = '3.35';
+our $VERSION = '3.36';
-# "These old doomsday devices are dangerously unstable.
-# I'll rest easier not knowing where they are."
sub AUTOLOAD {
my $self = shift;
@@ -60,8 +57,6 @@ sub AUTOLOAD {
sub DESTROY { }
-# "I personalized each of your meals.
-# For example, Amy: you're cute, so I baked you a pony."
sub new {
my $self = shift->SUPER::new(@_);
@@ -134,7 +129,6 @@ sub dispatch {
$c->render_not_found unless $self->routes->dispatch($c) || $tx->res->code;
}
-# "Bite my shiny metal ass!"
sub handler {
my ($self, $tx) = @_;
@@ -174,13 +168,6 @@ sub helper {
$r->add_helper($name => $cb);
}
-# "He knows when you are sleeping.
-# He knows when you're on the can.
-# He'll hunt you down and blast your ass, from here to Pakistan.
-# Oh...
-# You better not breathe, you better not move.
-# You're better off dead, I'm tellin' you, dude.
-# Santa Claus is gunning you down!"
sub hook { shift->plugins->on(@_) }
sub plugin {
View
2 lib/Mojolicious/Command.pm
@@ -75,7 +75,6 @@ sub render_to_rel_file {
$self->render_to_file(shift, $self->rel_dir(shift), @_);
}
-# "Bodies are for hookers and fat people."
sub run { croak 'Method "run" not implemented by subclass' }
sub write_file {
@@ -121,7 +120,6 @@ Mojolicious::Command - Command base class
-s, --something Does something.
EOF
- # <suitable Futurama quote here>
sub run {
my ($self, @args) = @_;
View
1 lib/Mojolicious/Command/cgi.pm
@@ -11,7 +11,6 @@ These options are available:
--nph Enable non-parsed-header mode.
EOF
-# "Fire all weapons and open a hailing frequency for my victory yodel."
sub run {
my ($self, @args) = @_;
my $cgi = Mojo::Server::CGI->new(app => $self->app);
View
1 lib/Mojolicious/Command/cpanify.pm
@@ -15,7 +15,6 @@ These options are available:
-u, --user <name> PAUSE username.
EOF
-# "Hooray! A happy ending for the rich people!"
sub run {
my ($self, @args) = @_;
View
3 lib/Mojolicious/Command/daemon.pm
@@ -25,9 +25,6 @@ These options are available:
-u, --user <name> Set username for process.
EOF
-# "It's an albino humping worm!
-# Why do they call it that?
-# Cause it has no pigment."
sub run {
my ($self, @args) = @_;
View
4 lib/Mojolicious/Command/eval.pm
@@ -12,10 +12,6 @@ These options are available:
-v, --verbose Print return value to STDOUT.
EOF
-# "It worked!
-# Gravity normal.
-# Air pressure returning.
-# Terror replaced by cautious optimism."
sub run {
my ($self, @args) = @_;
View
1 lib/Mojolicious/Command/generate.pm
@@ -1,7 +1,6 @@
package Mojolicious::Command::generate;
use Mojo::Base 'Mojolicious::Commands';
-# "Ah, nothing like a warm fire and a SuperSoaker of fine cognac."
has description => "Generate files and directories from templates.\n";
has hint => <<"EOF";
View
1 lib/Mojolicious/Command/generate/app.pm