view release on metacpan or  search on metacpan

DB.pm  view on Meta::CPAN

    $edb->cloneDistro(board => 'mpc8260adsp');

updating a distro with new information

    my $apache_ecd = Embedix::ECD->newFromFile('apache.ecd');
    $edb->updateDistro(ecd => $apache_ecd);

deleting components from a distro

    $edb->deleteNode(name => 'busybox');

=head1 REQUIRES

=over 4

=item Embedix::ECD

This is needed to get data from ECD files into perl objects that can
then be inserted into a database.

t/01_pg.t  view on Meta::CPAN

# updateDistro
my $ecd = Embedix::ECD->newFromFile('t/data/textutils.ecd');
eval { $edb->updateDistro(ecd => $ecd) };
ok($@ ? 0 : 1);

# see if update works by repeating the previous action
my $textutils = $ecd->Textprocessing->Tools->textutils;
$textutils->type('bool');
$textutils->default_value(1);
$textutils->prompt('busybox makes me jealous');
eval { $edb->updateDistro(ecd => $ecd) };
ok($@ ? 0 : 1);

# udpateDistro, yet again to see if the buildvars got in
$ecd = Embedix::ECD->newFromFile('t/data/tinylogin.ecd');
eval { $edb->updateDistro(ecd => $ecd) };
ok($@ ? 0 : 1);

# getNodePath
my $cheat = $dbh->selectall_arrayref("

t/data/textutils.ecd  view on Meta::CPAN

	SRPM=textutils
	<SPECPATCH></SPECPATCH>
	<HELP>These are the GNU text processing utilities. Most of 
	these programs have significant advantages over their Unix 
	counterparts, such as greater speed, additional options,
	and fewer arbitrary limits.

	Busybox provides small, simple versions of many of these 
	utilities. Consequently, most target systems only require
	busybox. You should provide textutils if the target system
	requires complete unix style textprocessing for the enduser.
	Textutils may be required to support other specific scripts 
	or utilities.
	</HELP>
	<REQUIRESEXPR>
		(textutils == "CHILDREN_ENABLED")
	</REQUIRESEXPR>

<OPTION keep-cat>
	TYPE=bool