File Coverage

blib/lib/OurCal/View.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	43	34.8

package OurCal::View;

use strict;
use UNIVERSAL::require;
use Module::Pluggable sub_name    => '_views',
                      search_path => 'OurCal::View';


=head2 NAME

OurCal::View - base class for all OourCal views

=head1 METHODS

=cut

=head2 new

=cut

sub new {
    my $class = shift;
    my %what  = @_;
    return bless \%what, $class;
}


=head2 views

Returns a has with key-value pairs representing the shortname and
equivalent class for all views installed.

=cut

sub views {
    my $self  = shift;
    my $class = (ref $self)? ref($self) : $self;

    my %views;
    foreach my $view ($self->_views) {
        my $name = $view;
        $name =~ s!^${class}::!!;
        $views{lc($name)} = $view;
    }
    return %views;
}

=head2 load_view

Returns an object representing a view of the same name of a type,
defined in the config and found in C. Authomatically passes in
the correct config.

=cut

sub load_view {
    my $self  = shift;
    my $name  = shift;
    my %opts  = @_;
    my %views = $self->views;
    my $class = $views{lc($name)}    || die "Couldn't get a class for view of type $name\n";
    $class->require || die "Couldn't require class $class: $@\n";
    return $class->new(%opts);
}

1;