Carton-v1.0.21HEADCarton-v1.0.21master

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;
+