more interface in test

kiwiroy · Feb 11, 2018 · a0209bc · a0209bc
1 parent 81b8487
commit a0209bc
Showing 1 changed file with 17 additions and 1 deletion.
diff --git a/t/lib/Test/App/perlbrew.pm b/t/lib/Test/App/perlbrew.pm
@@ -11,7 +11,18 @@ our $PERL5LIB = catdir($FindBin::Bin, 'lib', 'perl5');
 sub current_perl { return $ENV{PERLBREW_PERL} || 'perl-5.26.0'; }
 
 sub new { bless {}, $_[0]; }
-sub home {}
+
+sub home {
+}
+
+sub installed_perls {
+  return {
+    name => $ENV{PERLBREW_PERL},
+    version => ((my $a = $ENV{PERLBREW_PERL} || '') =~ s/^perl\-//),
+    is_current => 1,
+  };
+}
+
 sub perlbrew_env {
   return (
     PERLBREW_ROOT => $ENV{PERLBREW_ROOT},
@@ -22,6 +33,11 @@ sub perlbrew_env {
     PERL5LIB => $PERL5LIB,
   );
 }
+
+sub resolve_installation_name {
+
+}
+
 sub run_command {
   my ($self, $cmd) = (shift, shift);
   my $code = $self->can("run_command_$cmd");