74 |
my $name = $_->{name} || die "no name?"; |
my $name = $_->{name} || die "no name?"; |
75 |
$methods .= qq/sub $_ { \$_[0]->$name }\n/ foreach @{$_->{aliases}}; |
$methods .= qq/sub $_ { \$_[0]->$name }\n/ foreach @{$_->{aliases}}; |
76 |
my $out = qq/\tcolumn $name =>\n\t\tlabel is _('$_->{desc}')/; |
my $out = qq/\tcolumn $name =>\n\t\tlabel is _('$_->{desc}')/; |
77 |
$out .= qq/,\n\t\t# single-value/ if $_->{'single-value'}; |
# $out .= qq/,\n\t\t# single-value/ if $_->{'single-value'}; |
78 |
|
# $out .= qq/,\n\t\tfilters are qw(A3C::Filter::Array)/ unless $_->{'single-value'}; |
79 |
$out .= qq/,\n\t\tmax_length is $_->{max_length}/ if $_->{'max_length'}; |
$out .= qq/,\n\t\tmax_length is $_->{max_length}/ if $_->{'max_length'}; |
80 |
$out .= qq/,\n\t\t$add/ if $add; |
$out .= qq/,\n\t\t$add/ if $add; |
81 |
$out .= qq/;\n\n/; |
$out .= qq/;\n\n/; |
91 |
map { |
map { |
92 |
warn "# $objectClass must: ",dump( $_ ) if $debug; |
warn "# $objectClass must: ",dump( $_ ) if $debug; |
93 |
$model .= entry( $_, 'is mandatory' ); |
$model .= entry( $_, 'is mandatory' ); |
94 |
$create->{$_->{name}} = $_->{name}; |
$create->{$_->{name}} = $_->{'single-value'} ? $_->{name} : [ $_->{name}, $_->{desc} ]; |
95 |
} $schema->must( $objectClass ); |
} $schema->must( $objectClass ); |
96 |
|
|
97 |
$model .= qq/\t# $objectClass may:\n\n/; |
$model .= qq/\t# $objectClass may:\n\n/; |
179 |
|
|
180 |
foreach my $round ( 1 .. 2 ) { |
foreach my $round ( 1 .. 2 ) { |
181 |
my $data; |
my $data; |
182 |
$data .= qq/\t\t'$_' => '$_ $round',\n/ foreach keys %$create; |
$data .= qq/\t\t'$_' => / . dump( $create->{$_} ) . qq/,\n/ foreach keys %$create; |
183 |
warn "$round data = $data\n" if $debug; |
warn "$round data = $data\n" if $debug; |
184 |
$test =~ s/_create_${round}_/$data/gs; |
$test =~ s/_create_${round}_/$data/gs; |
185 |
} |
} |