view release on metacpan or  search on metacpan

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

  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'};