view release on metacpan or  search on metacpan

lib/Enbld.pm  view on Meta::CPAN

188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
 
    foreach my $target ( sort keys %target_result ) {
        Enbld::Message->notify( $target_result{$target} );
    }
 
    foreach my $file ( sort keys %rcfile_result ) {
        Enbld::Message->notify( $rcfile_result{$file} );
    }
}
 
sub build(&) {
    return $_[0];
}
 
our $condition_ref;
 
sub target($$) {
    my ( $targetname, $coderef ) = @_;
 
    if ( ! $initialized ) {
        _err(

lib/Enbld.pm  view on Meta::CPAN

231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
    };
 
    $coderef->();
 
    my $condition = Enbld::Condition->new( %{ $condition_ref } );
    $target_collection{$targetname} = $condition;
 
    undef $condition_ref;
}
 
sub define(&) {
    my $coderef = shift;
 
    return $coderef;
}
 
sub version($) {
    my $version = shift;
 
    if ( ref( $version ) ) {
        _err( "Function 'version' requires string type parameter." );

lib/Enbld.pm  view on Meta::CPAN

361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
        return $result;
    }
 
    # Configuration file is not loaded or set.
    $rcfile_result{$rcfile->filepath} =
        $rcfile->filepath . ' is not created.';
 
    return;
}
 
sub load(&) {
    $rcfile_condition->{command} = 'load';
 
    return $_[0];
}
 
sub set(&) {
    $rcfile_condition->{command} = 'set';
 
    return $_[0];
}
 
sub copy(&) {
    $rcfile_condition->{command} = 'copy';
 
    return $_[0];
}
 
sub from($) {
    my $from = shift;
 
    if ( ref( $from ) ) {
        _err( "Function 'from' requsres string type parameter." );