Skip to content

Instantly share code, notes, and snippets.

View marcusramberg's full-sized avatar

Marcus Ramberg marcusramberg

328 followers · 236 following
View GitHub Profile
@marcusramberg
marcusramberg / gist:629195
Created October 16, 2010 00:16
diff --git a/lib/Moose/Error/Default.pm b/lib/Moose/Error/Default.pm
index 0c81d0e..74de539 100644
--- a/lib/Moose/Error/Default.pm
+++ b/lib/Moose/Error/Default.pm
@@ -16,7 +16,12 @@ Class::MOP::MiniTrait::apply(__PACKAGE__, 'Moose::Meta::Object::Trait');
sub new {
my ( $self, @args ) = @_;
- $self->create_error_confess( @args );
+ if(exists $ENV{MOOSE_ERROR_TERSE} && $ENV{MOOSE_ERROR_TERSE}) {
@marcusramberg
marcusramberg / gist:629199
Created October 16, 2010 00:18
diff --git a/lib/Moose/Error/Default.pm b/lib/Moose/Error/Default.pm
index 0c81d0e..1148c69 100644
--- a/lib/Moose/Error/Default.pm
+++ b/lib/Moose/Error/Default.pm
@@ -16,7 +16,12 @@ Class::MOP::MiniTrait::apply(__PACKAGE__, 'Moose::Meta::Object::Trait');
sub new {
my ( $self, @args ) = @_;
- $self->create_error_confess( @args );
+ if(exists $ENV{MOOSE_ERROR_TERSE} && $ENV{MOOSE_ERROR_TERSE}) {
@marcusramberg
marcusramberg / gist:629769
Created October 16, 2010 13:14
diff --git a/lib/Moose/Error/Default.pm b/lib/Moose/Error/Default.pm
index 0c81d0e..bf68b4e 100644
--- a/lib/Moose/Error/Default.pm
+++ b/lib/Moose/Error/Default.pm
@@ -12,11 +12,18 @@ use Class::MOP::MiniTrait;
use base 'Class::MOP::Object';
+use constant MOOSE_ERROR_TERSE => $ENV{MOOSE_ERROR_TERSE};
+
@marcusramberg
marcusramberg / gist:629926
Created October 16, 2010 15:45
diff --git a/lib/Moose/Error/Default.pm b/lib/Moose/Error/Default.pm
index 0c81d0e..9627564 100644
--- a/lib/Moose/Error/Default.pm
+++ b/lib/Moose/Error/Default.pm
@@ -12,11 +12,17 @@ use Class::MOP::MiniTrait;
use base 'Class::MOP::Object';
+
Class::MOP::MiniTrait::apply(__PACKAGE__, 'Moose::Meta::Object::Trait');
@marcusramberg
marcusramberg / gist:984954
Created May 21, 2011 22:23
#!/usr/bin/env perl
use strict; use warnings;
use Mojo::UserAgent;
use Mojo::JSON;
my $base_url=Mojo::URL->new('http://www.stortinget.no/no/Representanter-og-komiteer/Representantene/Innvalgte-fra-1945--/');
my $ua=Mojo::UserAgent->new();
my $tx=$ua->get($base_url);
@marcusramberg
marcusramberg / gist:993598
Created May 26, 2011 17:42
Use of uninitialized value $handle in <HANDLE> at /Users/arne/perl5/lib/perl5/Mojo/Exception.pm line 96.
readline() on unopened filehandle at /Users/arne/perl5/lib/perl5/Mojo/Exception.pm line 96.
Can't locate ./script/meetv_web: Too many open files at /Users/arne/perl5/lib/perl5/Mojo/Loader.pm line 136.
Thu May 26 15:08:11 2011 error Mojo::Server::Daemon:188 [15443]: Event "read" failed for connection "1531647d0": Can't locate MeeTV/Web5.pm: Too many open files at (eval 110706) line 3.
Use of uninitialized value $handle in <HANDLE> at /Users/arne/perl5/lib/perl5/Mojo/Exception.pm line 96.
readline() on unopened filehandle at /Users/arne/perl5/lib/perl5/Mojo/Exception.pm line 96.
Can't locate ./script/meetv_web: Too many open files at /Users/arne/perl5/lib/perl5/Mojo/Loader.pm line 136.
Thu May 26 15:08:11 2011 error Mojo::Server::Daemon:188 [15443]: Event "read" failed for connection "154285cf0": Can't locate MeeTV/Web5.pm: Too many open files at (eval 110718) line 3.
@marcusramberg
marcusramberg / gist:1066926
Created July 6, 2011 09:45
diff --git i/lib/MeeTV/Web5.pm w/lib/MeeTV/Web5.pm
index 0dc51b7..ab2f91e 100644
--- i/lib/MeeTV/Web5.pm
+++ w/lib/MeeTV/Web5.pm
@@ -100,13 +100,7 @@ sub set_attributes {
api_key => $cfg->{web_service}{api_key},
);
});
- $self->attr( default_channels => sub {
- my ($c) = @_;
@marcusramberg
marcusramberg / gist:1101392
Created July 23, 2011 12:56
2009-12-09 17:14:41
Her er en fin oversikt - 10 grunner til at den moderne kirke vil dø:
http://gkupsidedown.blogspot.com/2009/11/why-modernist-christianity-will-die.html
Jeg er selv protestant og døpte/konfirmerte meg av egen fri vilje da jeg var 15.
Men dagens protestantisk kirke er en vits. Prester i jeans som marsjerer for Palestina og kirker som ser ut som minimalistiske kjøpesentre. Jeg er tilhenger av en indirekte kollektiv konvertering fra den protestantiske kirke tilbake til den katolske. I mellomtiden stemmer jeg på de mest konservative kandidatene ved kirkevalg.
Det eneste som kan redde den protestantiske kirke er å gå back to basics.
@marcusramberg
marcusramberg / gist:1237000
Created September 23, 2011 09:14
Fri Sep 23 11:08:15 2011: Terminating and removing pid file: Can't locate EV.pm in @INC (@INC contains: /home/spmarcus/pns/inc/Mojolicious-1.48/lib /Library/Perl/5.12/darwin-thread-multi-2level /Library/Perl/5.12 /Network/Library/Perl/5.12/darwin-thread-multi-2level /Network/Library/Perl/5.12 /Library/Perl/Updates/5.12.3/darwin-thread-multi-2level /Library/Perl/Updates/5.12.3 /System/Library/Perl/5.12/darwin-thread-multi-2level /System/Library/Perl/5.12 /System/Library/Perl/Extras/5.12/darwin-thread-multi-2level /System/Library/Perl/Extras/5.12 .) at /Library/Perl/5.12/Mojo/IOWatcher/EV.pm line 4.
@marcusramberg
marcusramberg / gist:1237001
Created September 23, 2011 09:14
Fri Sep 23 11:08:15 2011: Terminating and removing pid file: Can't locate EV.pm in @INC (@INC contains: /home/spmarcus/pns/inc/Mojolicious-1.48/lib /Library/Perl/5.12/darwin-thread-multi-2level /Library/Perl/5.12 /Network/Library/Perl/5.12/darwin-thread-multi-2level /Network/Library/Perl/5.12 /Library/Perl/Updates/5.12.3/darwin-thread-multi-2level /Library/Perl/Updates/5.12.3 /System/Library/Perl/5.12/darwin-thread-multi-2level /System/Library/Perl/5.12 /System/Library/Perl/Extras/5.12/darwin-thread-multi-2level /System/Library/Perl/Extras/5.12 .) at /Library/Perl/5.12/Mojo/IOWatcher/EV.pm line 4.