[svn:Module-Build] r6649 - Module-Build/trunk/lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Sat Jul 15 04:55:08 2006
New Revision: 6649

Added:
   Module-Build/trunk/lib/Module/Build/Version.pm

Log:
Add to svn

Added: Module-Build/trunk/lib/Module/Build/Version.pm
==============================================================================
--- (empty file)
+++ Module-Build/trunk/lib/Module/Build/Version.pm      Sat Jul 15 04:55:08 2006
@@ -0,0 +1,26 @@
+package Module::Build::Version;
+use base qw/version/;
+
+use overload (
+    '""' => \&stringify,
+);
+
+sub new {
+    my ($class, $value) = @_;
+    my $self = $class->SUPER::new($value);
+    $self->original($value);
+    return $self;
+}
+
+sub original {
+    my $self = shift;
+    $self->{original} = shift if @_;
+    return $self->{original};
+}
+
+sub stringify {
+    my $self = shift;
+    return $self->original;
+}
+
+1;