Bryar::Document - Represents a blog post

	$self->new(...);

	$self->content();     # Get content
	$self->title();       # Get title

	$self->epoch();       # Get epoch
    $self->timepiece();   # Get the date as a Time::Piece object

	$self->category();    # Get category
	$self->author();      # Get author

	$self->keywords(...); # Return keywords relating to this document
    $self->id             # Unique identifier

    $self->comments();    # Get comments

    $self->new(%params)

	$self->content();    # Get content

	$self->title();    # Get title

	$self->epoch();    # Get epoch

	$self->category();    # Get category

	$self->author();    # Get author

    $self->keywords

	$self->id();    # Get id

    $self->url;

    @comments = $self->comments();

	my $excerpt = $self->excerpt(20); # get a 20 word excerpt
	my $excerpt = $self->excerpt( );  # get excerpt as long as the excerpt_words config variable

package Bryar::Document;
use Time::Piece;
use 5.006;
use strict;
use warnings;
use Carp;
our $VERSION = '1.0';

sub new {
    my $class = shift;
    my %args = @_;
    my $self = bless {
        epoch =>  $args{epoch} ,
        content =>  $args{content} ,
        author =>  $args{author} ,
        category =>  $args{category} ,
        title =>  $args{title} ,
        id => $args{id},
        comments => ($args{comments} || [])

    }, $class;
    return $self;
}

sub content {
    my $self = shift;
    return $self->{content};
}

sub title {
    my $self = shift;
    return $self->{title};
}

sub epoch {
    my $self = shift;
    return $self->{epoch};
}

sub timepiece {
    my $self = shift;
    return Time::Piece->new($self->{epoch});
}

sub datetime {
    my $self = shift;
    return DateTime->from_epoch( epoch => $self->{epoch}, time_zone => "local" );
}

sub category {
    my $self = shift;
    return $self->{category};
}

sub author {
    my $self = shift;
    return $self->{author};
}

sub keywords {
    my $self = shift;
    eval { require Lingua::EN::Keywords; };
    return "" if $@;
    return Lingua::EN::Keywords::keywords($self->content);
    # Goodbye, CPU time!
}

sub id {
    my $self = shift;
    return $self->{id};
}

sub url {
    my $self = shift;

    my $id = $self->{id};
    $id =~ s#^.*/##;
    my $url = '';
    $url = '/' . $self->{category} if $self->{category} ne 'main';
    return $url . '/id_' . $id;
}

sub comments {
    my $self = shift;
    return @{$self->{comments}};
}

sub excerpt {
	my $self = shift;
	my $num_words = shift || 40;

	my $content = $self->{content};

	# NOTE: I lifted this from MT, but in reality, i will be making it more flexible and neater.  
	# Now if only this document had some sense of the Bryar environment so it could pull the 
	# default $num_words from the config.
	
	# $text = remove_html($text);
    my @words = split /\s+/, $content;
    my $max_words = @words > $num_words ? $num_words : @words;
    return join ' ', @words[0..$max_words-1];
}

1;