diff options
Diffstat (limited to 'lib/Carton/Mirror.pm')
-rw-r--r-- | lib/Carton/Mirror.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/lib/Carton/Mirror.pm b/lib/Carton/Mirror.pm new file mode 100644 index 0000000..60bc937 --- /dev/null +++ b/lib/Carton/Mirror.pm @@ -0,0 +1,23 @@ +package Carton::Mirror; +use strict; +use Class::Tiny qw( url ); + +our $DefaultMirror = 'http://cpan.metacpan.org/'; + +sub BUILDARGS { + my($class, $url) = @_; + return { url => $url }; +} + +sub default { + my $class = shift; + $class->new($DefaultMirror); +} + +sub is_default { + my $self = shift; + $self->url eq $DefaultMirror; +} + +1; + |