view release on metacpan or  search on metacpan

lib/Acme/rafl/Everywhere.pm  view on Meta::CPAN

use strict;
use warnings;
package Acme::rafl::Everywhere;
{
  $Acme::rafl::Everywhere::VERSION = '0.011';
}
# ABSTRACT: rafl is so everywhere, he has his own Acme module!

my @default_facts = (
  q{rafl is so everywhere, he's on both the vim and emacs mailing list, arguing for each!},
  q{rafl is so everywhere, he's behind you right now!},
  q{rafl is so everywhere, even Chuck Norris checks under his bed every night!},
  q{rafl is so everywhere, Freddy Krueger is afraid of falling asleep!},
  q{rafl is so everywhere, Schrodinger's cat's got nothing on him!},
  q{rafl is so everywhere, he sent me postcards from the surface of the sun!},
  q{rafl is so everywhere, when you want to abandon a module, rafl gets co-maint automatically!},
  q{rafl is so everywhere, you can find Waldo simply by searching for anyone who isn't rafl!},
  q{rafl is so everywhere, Jesus owes him a pull request on Github!},
  q{rafl is so everywhere, he has the first commit of Javascript on Parrot!},
  q{rafl is so everywhere, when you breathe, that's rafl you're breathing!},
  q{rafl is so everywhere, he makes a cameo in the video from The Ring!},
  q{rafl is so everywhere, he ar in yur Perl debuggr, pointing at yore crappy code!},
  q{rafl is so everywhere, he is the default entry in your SSH authorized_keys file!},
  q{rafl is so everywhere, he issued the first bug report for Perl, before it existed!},
  q{rafl is so everywhere, he participated in the space olympics!},
  q{rafl is so everywhere, he can visit all the YAPCs even if they are on the same day!},
  q{rafl is so everywhere, every picture is actually photo-bombed by rafl!},
  q{rafl is so everywhere, Git might be renamed to Girafl to clarify its distributed design!},
  q{rafl is so everywhere, the post office asks him for directions!},
  q{rafl is so everywhere, he has more foursquare checkins on Mars than the Curiosity rover!},
  q{rafl is so everywhere, quantum teleportation papers cite him as main study source!},
  q{rafl is so everywhere, he can patch your code even before you push it!},
  q{rafl is so everywhere, he caused an integer overflow in every Airline's mileage system!},
  q{rafl is so everywhere, there's a saved seat for him in every conference in the world!},
  q{rafl is so everywhere, there's a DuckDuckGo.com "!rafl" bang syntax!},
  q{rafl is so everywhere, he can go sightseeing without leaving his hotel room!},
  q{rafl is so everywhere, the longest-running scavanger hunt for him took 0.0015 seconds!},
  q{rafl is so everywhere, `grep -i 'rafl' /dev/sda` *always* matches!},
  q{rafl is so everywhere, Internet Census 2012 found 1.3 billion active IP addresses and estimates that 1.1 billion of them are being used by rafl!},
  q{rafl is so everywhere, the next version of Debian is replacing /bin/cat with a shell alias for grep 'rafl'},
  q{rafl is so everywhere, the Da Vinci code is actually a Base64 Rot13 representation of rafl},
);

sub new {
    my $class = shift;
    my $self  = bless {@_}, $class;

    exists $self->{'facts'}
        or $self->{'facts'} = \@default_facts;

    return $self;
}

sub fact {
    my $self  = shift;
    my $facts = $self->{'facts'};
    return $facts->[ int rand scalar @{$facts} ];
}

1;

__END__

=pod

=head1 NAME

Acme::rafl::Everywhere - rafl is so everywhere, he has his own Acme module!

=head1 VERSION

version 0.011

=head1 SYNOPSIS

    use Acme::rafl::Everywhere;

    my $rafl = Acme::rafl::Everywhere->new;
    print $rafl->fact;

Or set your own facts