p4raw-id: //depot/perl@28581
lib/Module/Build/t/tilde.t Module::Build
lib/Module/Build/t/versions.t Module::Build
lib/Module/Build/t/xs.t Module::Build
+lib/Module/Build/Version.pm Module::Build
lib/Module/Build/YAML.pm Module::Build
lib/Module/CoreList/bin/corelist Module::CoreList
lib/Module/CoreList.pm Module::CoreList
--- /dev/null
+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;