File Coverage

lib/CPAN/MirrorStatus.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package CPAN::MirrorStatus;
our $VERSION = '0.02_01';

# ABSTRACT: query mirrors status from mirrors.cpan.org

use 5.010;
use strict;
use warnings;

use LWP::Simple;
use Rubyish::Attribute;
use self;

# configurable attributions
# each attribution would be setted in constructor
my @attr = qw(catch location target);
my $default = {
    catch       => "60",
    location    => "/tmp/cpan-mirrorstatus.tmp",
    target      => "cpan.nctu.edu.tw",
};

# define setter of configurable attribution
attr_accessor @attr;


sub new {
    my ($class,$args) = @_;
    my $self = bless {}, $class;
    for (@attr) {
        $self->{$_} = $args->{$_} ? $args->{$_} : $default->{$_};
    }
}

sub query {

}

sub render {
    my ($format) = @args;
    given ($format) {
        when ("widget")  { render_widget() }
        when ("json")    { render_json() }
    }
}

sub render_json {

}

sub render_widget


1;



__END__