File Coverage

blib/lib/LUGS/Events/Parser/Event.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	16	16	100.0
pod	0	14	0.0
total	50	64	78.1

package LUGS::Events::Parser::Event;

use strict;
use warnings;

our $VERSION = '0.04';

sub new
{
    my $class = shift;

    return bless { event => { @_ } }, $class;
}

sub get_event_date
{
    my $self = shift;

    return $self->{event}->{event};
}

sub get_event_year
{
    my $self = shift;

    return substr($self->{event}->{event}, 0, 4);
}

sub get_event_month
{
    my $self = shift;

    return substr($self->{event}->{event}, 4, 2);
}

sub get_event_day
{
    my $self = shift;

    return substr($self->{event}->{event}, 6, 2);
}

sub get_event_simple_day
{
    my $self = shift;

    return $self->{event}->{day};
}

sub get_event_weekday
{
    my $self = shift;

    return $self->{event}->{weekday};
}

sub get_event_time
{
    my $self = shift;

    return $self->{event}->{time};
}

sub get_event_title
{
    my $self = shift;

    return $self->{event}->{title};
}

sub get_event_color
{
    my $self = shift;

    return $self->{event}->{color};
}

sub get_event_location
{
    my $self = shift;

    return $self->{event}->{location};
}

sub get_event_responsible
{
    my $self = shift;

    return $self->{event}->{responsible};
}

sub get_event_more
{
    my $self = shift;

    return $self->{event}->{more};
}

sub get_event_anchor
{
    my $self = shift;

    return $self->{event}->{anchor};
}

1;