bs.pm

   1 package bs;
   2
   3 use Moose;
   4 with 'Dist::Zilla::Role::VersionProvider';
   5 with 'Dist::Zilla::Role::ModuleInfo';
   6
   7 sub provide_version {
   8   my ($self) = @_;
   9
  10   my $main_module = $self->zilla->main_module;
  11   my $module = $main_module->name;
  12
  13   my $pm_info = $self->get_module_info($main_module);
  14   my $ver     = $pm_info->version;
  15
  16   die "Unable to get version from $module" unless defined $ver;
  17
  18   $self->log("dist version $ver (from $module)");
  19
  20   "$ver";
  21 }
  22
  23 1;