Update of /cvsroot/openinteract/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19764
Modified Files:
build_bricks
Log Message:
OIN-121: updates to generated ::Brick classes
Index: build_bricks
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/build_bricks,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** build_bricks 28 Jan 2005 15:40:04 -0000 1.1
--- build_bricks 28 Jan 2005 16:30:21 -0000 1.2
***************
*** 75,78 ****
--- 75,79 ----
my %params = (
brick_name => $brick_name,
+ lc_brick_name => lc $brick_name,
brick_summary => $brick_info->[1],
brick_example => $brick_info->[2],
***************
*** 81,88 ****
all_files => \@brick_files,
);
! my $output_file = "lib/OpenInteract2/Bricks/$brick_name.pm";
$template->process( \$brick_template, \%params, $output_file )
|| die "Cannot process files from '$brick_dir' -> '$output_file': ", $template->error();
! print "Generated $output_file ok\n";
}
}
--- 82,93 ----
all_files => \@brick_files,
);
! my $brick_lib_dir = 'lib/OpenInteract2/Brick';
! unless ( -d $brick_lib_dir ) {
! mkdir( $brick_lib_dir );
! }
! my $output_file = "$brick_lib_dir/$brick_name.pm";
$template->process( \$brick_template, \%params, $output_file )
|| die "Cannot process files from '$brick_dir' -> '$output_file': ", $template->error();
! print "Generated $output_file with ", scalar( @brick_files ), " inlined files\n";
}
}
***************
*** 132,145 ****
__DATA__
! package OpenInteract2::Bricks::[% brick_name %];
use strict;
! use base qw( OpenInteract2::Bricks );
use Inline::Files;
sub get_resources {
return (
[% FOREACH file_info = all_files -%]
! '[% file_info.name %]' => [ '[% file_info.inline_name %]', '[% file_info.destination %]', '[% file_info.evaluatable %]' ],
[% END -%]
);
--- 137,161 ----
__DATA__
! package OpenInteract2::Brick::[% brick_name %];
use strict;
! use base qw( OpenInteract2::Brick );
use Inline::Files;
+ use OpenInteract2::Exception qw( oi_error );
+
+ my %INLINES = (
+ [% FOREACH file_info = all_files -%]
+ '[% file_info.name %]' = '[% file_info.inline_name %]',
+ [% END -%]
+ );
+
+ sub get_name {
+ return '[% lc_brick_name %]';
+ }
sub get_resources {
return (
[% FOREACH file_info = all_files -%]
! '[% file_info.name %]' => [ '[% file_info.destination %]', '[% file_info.evaluatable %]' ],
[% END -%]
);
***************
*** 147,159 ****
sub load {
! my ( $class, $name ) = @_;
! return join( '', <$name> );
}
=pod
=head1 NAME
! OpenInteract2::Bricks::[% brick_name %] - [% brick_summary %]
=head1 SYNOPSIS
--- 163,182 ----
sub load {
! my ( $self, $resource_name ) = @_;
! my $inline_name = $INLINES{ $resource_name };
! unless ( $inline_name ) {
! oi_error "Resource name '$resource_name' not found ",
! "in ", ref( $self ), "; cannot load content.";
! }
! return join( '', <$inline_name> );
}
+ OpenInteract2::Brick->register_factory_type( get_name() => __PACKAGE__ );
+
=pod
=head1 NAME
! OpenInteract2::Brick::[% brick_name %] - [% brick_summary %]
=head1 SYNOPSIS
***************
*** 165,168 ****
--- 188,193 ----
[% brick_description %]
+ These resources are associated with OpenInteract2 version [% oi2_version %].
+
=head1 COPYRIGHT
|
