+=head2 C<ebuild_source>
+
+Returns the source of the ebuild for the current dist object.
+
+=cut
+
+sub ebuild_source {
+ my $self = shift;
+ my $stat = $self->status;
+
+ # We must resolve the deps now and not inside prepare because _cpan2portage
+ # has to see the ebuilds already generated for the dependencies of the current
+ # dist.
+ my @deps = do {
+ my %seen;
+ sort grep !$seen{$_}++, 'dev-lang/perl',
+ map $self->_cpan2portage(@$_), @{$stat->deps}
+ };
+
+ my $d = $stat->header;
+ $d .= "# Generated by CPANPLUS::Dist::Gentoo version $VERSION\n\n";
+ $d .= 'MODULE_AUTHOR="' . $stat->author . "\"\ninherit perl-module\n\n";
+ $d .= 'S="${WORKDIR}/' . $stat->distribution . "\"\n";
+ $d .= 'DESCRIPTION="' . $stat->desc . "\"\n";
+ $d .= 'HOMEPAGE="' . $stat->uri . "\"\n";
+ $d .= 'SRC_URI="' . $stat->src . "\"\n";
+ $d .= "SLOT=\"0\"\n";
+ $d .= 'LICENSE="|| ( ' . join(' ', sort @{$stat->license}) . " )\"\n";
+ $d .= 'KEYWORDS="' . join(' ', sort @{$stat->keywords}) . "\"\n";
+ $d .= 'DEPEND="' . join("\n", @deps) . "\"\n";
+ $d .= "SRC_TEST=\"do\"\n";
+ $d .= $stat->footer;
+
+ return $d;
+}
+