NAME

WWW::SchneierFacts::Fact - A fact about Bruce Schneier

SYNOPSIS

        use WWW::SchneierFacts::Fact;

        my $fact = WWW::SchneierFacts::Fact->new(
                id => 42,
        );

        $fact->fact; # the text

        $ stringifies
        warn "THIS IS A FACT: $fact";

        if ( $fact->has_author ) {
                warn $fact->author; # not set if anonymous
        }

DESCRIPTION

This is the class for a single Bruce Schneier fact.

ATTRIBUTES

Generally the attributes are fetched lazily.

WWW::SchneierFacts does the hard work.

fact

The fact text.

link

id

One of these is required. This is either the numeric ID or the link to the fact.

To get a random fact, use WWW::SchneierFacts::Fact.

author

The author of the fact.

db

The fact DB where this fact was obtained.

Used for scraping. Generally set by the DB itself.

TODO

        WWW::SchneierFacts::Fact->new( fact => "foo", author => "me!" )->submit;