our $VERSION = '0.003';
has dist => (is => 'ro', isa => 'Str', lazy_build => 1);
sub _build_dist { die 'dist is not set, and is required!' }
has conf => (is => 'rw', isa => 'Config::Tiny', lazy_build => 1);
has mm => (is => 'ro', isa => 'CPAN::MetaMuncher', lazy_build => 1);
has cpanp => (is => 'ro', isa => CPBackend, lazy_build => 1);
has module => (is => 'ro', isa => CPModule, lazy_build => 1);
has tarball => (is => 'ro', lazy_build => 1, isa => File, coerce => 1);
has extract_dir => (is => 'ro', lazy_build => 1, isa => Dir, coerce => 1);
sub _build_conf { Config::Tiny->read('auto.ini') || Config::Tiny->new }
sub _build_mm { CPAN::MetaMuncher->new(module => shift->module) }
sub _build_module { my $s = shift; $s->cpanp->parse_module(module => $s->dist) }
sub _build_tarball { shift->module->status->fetch }
sub _build_extract_dir
{ my $m = shift->module; $m->status->extract || $m->extract }
has packager => (is => 'rw', lazy_build => 1, isa => Str);
has name => (is => 'rw', lazy_build => 1, isa => Str);
has version => (is => 'rw', lazy_build => 1, isa => Str);
has release => (is => 'rw', lazy_build => 1, isa => Int);
has summary => (is => 'rw', lazy_build => 1, isa => Str);
has source0 => (is => 'rw', lazy_build => 1, isa => Str);
has epoch => (is => 'rw', lazy_build => 1, isa => 'Maybe[Int]');
has is_noarch => (is => 'rw', lazy_build => 1, isa => Bool);
has url => (is => 'rw', lazy_build => 1, isa => Uri, coerce => 1);
has license => (is => 'rw', lazy_build => 1, isa => Str);
has _changelog => (
traits => [ 'MooseX::AttributeHelpers::Trait::Collection::Array' ],
is => 'ro', isa => 'ArrayRef[Str]', lazy_build => 1,
provides => {
empty => 'has_changelog',
push => 'add_changelog',
unshift => 'prepend_changelog',
elements => 'changelog',
},
);
has _build_requires => (
traits => [ 'MooseX::AttributeHelpers::Trait::Collection::Hash' ],
is => 'ro', isa => 'HashRef', lazy_build => 1,
provides => {
'empty' => 'has_build_requires',
'exists' => 'has_build_require',
'get' => 'build_require_version',
'set' => 'build_require_this',
'count' => 'num_build_requires',
'keys' => 'build_requires',
'delete' => 'remove_build_require_on',
'kv' => 'build_require_pairs',
},
);
has _requires => (
traits => [ 'MooseX::AttributeHelpers::Trait::Collection::Hash' ],
is => 'ro', isa => 'HashRef', lazy_build => 1,
provides => {
'empty' => 'has_requires',
'exists' => 'has_require',
'get' => 'require_version',
'count' => 'num_requires',
'keys' => 'requires',
'set' => 'require_this',
'kv' => 'require_pairs',
},
);
sub _build_packager { chomp(my $p = `rpm --eval '%packager'`); $p }
sub _build_release { 1 }
sub _build_epoch { undef }
sub _build_source0 {
my $self = shift @_;
. $self->module->path . q{/}
. $self->dist . q{-} . $self->version . q{.}
. $self->module->package_extension
;
}
sub _build_is_noarch {
my $self = shift @_;
my $files = $self->module->status->files;
return do { first { /\.(c|xs)$/i } @$files } ? 0 : 1;
}
sub _build_license { warn 'not implemented!'; 'CHECK(GPL+ or Artistic)' }
sub _build_summary { die 'not implemented' }
sub _build__changelog { die 'not implemented' }
sub _build__build_requires { die 'not implemented!' }
sub _build__requires { die 'not implemented!' }
has template => (is => 'rw', isa => File, coerce => 1, lazy_build => 1);
has output => (is => 'ro', isa => Str, lazy_build => 1);
sub _build_template { 'perl/spec.tt2' }
sub _build_output {
my $self = shift @_;
my $output;
my $res = $self->_tt2->process(
$self->template->stringify, {
data => $self,
rpm_date => DateTime->now->strftime('%a %b %d %Y'),
},
\$output,
);
die $self->_tt2->error . "\n" unless $res;
return $output;
}
has filename => (
is => 'rw', isa => File, lazy_build => 1, coerce => 1,
trigger => sub { shift->clear_to_file },
);
after 'clear_filename' => sub { shift->clear_to_file };
sub _build_filename { 'perl-' . shift->dist . '.spec' }
has to_file => (is => 'ro', isa => File, lazy_build => 1, coerce => 1);
sub _build_to_file {
my $self = shift @_;
my $filename = $self->filename;
write_file "$filename" => $self->output;
$self->log->debug("wrote spec out to: $filename");
return $filename;
}
sub build_srpm {
my $self = shift @_;
my ($dir, $spec) = (dir->absolute, $self->to_file);
local $ENV{$_} for qw{PERL5LIB PERL_MM_OPTS MODULEBUILDRC};
cp $self->tarball => "$dir";
$self->log->warn('running rpmbuild...');
system "rpmbuild --define '_sourcedir $dir' "
. "--define '_builddir $dir' "
. "--define '_srcrpmdir $dir' "
. "--define '_rpmdir $dir' "
. "-bs --nodeps $spec "
;
}
__PACKAGE__->meta->make_immutable;