Bigtop

 view release on metacpan or  search on metacpan

lib/Bigtop/Parser.pm  view on Meta::CPAN

3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
    my $self = shift;
    shift;
    my $data = shift;
 
    return unless ( defined $self->{__IDENT__} );
 
    return [ $self->{__IDENT__} => $self->{__NAME__} ];
}
 
# if a renamed field is in foreign_display, update it
sub update_foreign_display {
    my $self = shift;
    shift;
    my $data = shift;
 
    return unless $self->{ __TYPE__ } eq 'foreign_display';
 
    my $display     = $self->{ __ARGS__ }->get_first_arg;
    my $old_display = $display;
 
    if ( $data->{ new_value } ) {

lib/Bigtop/Parser.pm  view on Meta::CPAN

3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
    shift;
    my $data         = shift;
 
    return unless ( $data->{ keyword } eq $self->{ __KEYWORD__ } );
 
    return [ $self->{ __DEF__ }{ __ARGS__ } ];
}
 
# If the old label was the default, the label will be changed to default
# for new name.
sub update_label {
    my $self         = shift;
    my $child_output = shift;
    my $data         = shift;
 
    return unless $self->{ __KEYWORD__ } eq 'label';
 
    my $field_ident = $self->get_field_ident();
 
    my $old_label         = $child_output->[0];
    my $old_default_label = Bigtop::ScriptHelp->default_label(

lib/Bigtop/Parser.pm  view on Meta::CPAN

3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
    my $values        = shift;
    my $pair_required = shift;
 
    my $self   = {
        __ARGS__ => arg_list->new( $values, $pair_required ),
    };
 
    return bless $self, $class;
}
 
sub update_label {
    my $self = shift;
 
    return [ $self->{ __ARGS__ }->get_first_arg ];
}
 
sub walk_postorder {
    my $self   = shift;
    my $action = shift;
    my $data   = shift;
    my $parent = shift;

lib/Bigtop/Parser.pm  view on Meta::CPAN

4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
        $extra_keys = $self->get_method_statement( 'extra_keys' )->{__ARGS__};
    }
 
    my $ident = $self->get_ident;
    return [
        $ident . '::form_name'  => $table,
        $ident . '::extra_keys' => $extra_keys,
    ];
}
 
sub update_field_name {
    my $self         = shift;
    my $child_output = shift;
    my $data         = shift;
 
    my $count = 0;
    # remember that foreach aliases, this loop alters child output
    foreach my $key_or_val ( @{ $child_output } ) {
        if ( $count % 2 == 0 ) {
            $key_or_val = $self->{__IDENT__} . '::' . $key_or_val;
        }

lib/Bigtop/Parser.pm  view on Meta::CPAN

4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
 
sub app_block_hashes {
    my $self         = shift;
 
    return [ {
        keyword     => $self->{__KEYWORD__},
        values      => $self->{__ARGS__},
    } ];
}
 
sub update_field_name {
    my $self = shift;
    shift;
    my $data = shift;
 
    unless ( $self->{ __KEYWORD__ } eq 'cols'
                or
             $self->{ __KEYWORD__ } eq 'all_fields_but'
                or
             $self->{ __KEYWORD__ } eq 'fields' )
    {

lib/Bigtop/Parser.pm  view on Meta::CPAN

5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
 
    return $self->{__KEYWORD__};
}
 
sub get_config_statements {
    my $self = shift;
 
    return [ $self->{__KEYWORD__} => $self->{__ARGS__} ];
}
 
sub update_config_statement {
    my $self   = shift;
    shift;
    my $data   = shift;
 
    return unless ( $data->{ ident } eq $self->{__PARENT__}->get_ident );
 
    return [] unless ( $data->{ keyword } eq $self->{ __KEYWORD__ } );
 
    my $arg = $self->{__ARGS__}->get_first_arg();

lib/Bigtop/Parser.pm  view on Meta::CPAN

5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
 
sub app_block_hashes {
    my $self         = shift;
 
    return [ {
        keyword     => $self->{__KEYWORD__},
        value       => $self->{__ARGS__}[0],
    } ];
}
 
sub update_config_statement {
    my $self   = shift;
    shift;
    my $data   = shift;
 
    return unless ( $data->{ ident } eq $self->{__PARENT__}->{__IDENT__} );
 
    return [] unless ( $data->{ keyword } eq $self->{ __KEYWORD__ } );
 
    my $arg = $self->{__ARGS__}->get_first_arg();

lib/Bigtop/TentMaker.pm  view on Meta::CPAN

1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
                [ 'Init', { __NAME__ => $backend } ];
    }
    else {
        push @{ $config->{__STATEMENTS__} },
             [ $type, { __NAME__ => $backend } ];
    }
 
    $config->{ $type } = { __NAME__ => $backend };
}
 
sub update_backends {
    my $self   = shift;
    my $tree   = shift;
    my $config = $tree->get_config();
 
    # remove old values
    foreach my $type ( keys %backends ) {
        foreach my $backend ( keys %{ $backends{ $type } } ) {
            $backends{ $type }{ $backend }{ in_use     } = 0;
            $backends{ $type }{ $backend }{ statements } = {};
        }