[Openinteract-commits] CVS: OpenInteract2/sample/package_cpan module_include.t,NONE,1.1 README,NONE,1.1 Makefile.PL,NONE,1.1 FILES,NONE,1.1 Brick.pm,NONE,1.1 App.pm,NONE,1.1

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/sample/package_cpan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18594/package_cpan

Added Files:
	module_include.t README Makefile.PL FILES Brick.pm App.pm 
Log Message:
add files necessary to make a CPAN module from a package


--- NEW FILE: module_include.t ---
# -*-perl-*-

use strict;
use Test::More tests => [% package_modules.size + 2 %];

require_ok( '[% full_app_class %]' );
require_ok( '[% full_brick_class %]' );
[% FOREACH module = package_modules.sort -%]
require_ok( '[% module %]' );
[% END -%]


--- NEW FILE: README ---
sample/package_cpan:

The files here are used as templates for creating a new CPAN
distribution from a package.

NOTE: If you add a file here be sure to add an entry in FILES so we
know it should be copied over to the dist when it's created.

--- NEW FILE: Makefile.PL ---
use ExtUtils::MakeMaker;

my %opts = (
    'NAME'	       => '[% full_app_class %]',
    'VERSION'      => '[% package_version %]',
    'PL_FILES'     => {},
    'NO_META'      => 1,
    'PREREQ_PM'    => {
        'OpenInteract2::Action' => 1.66,   # proxy for OI2
[% FOREACH module = required_modules -%]
        [% module %] => 0,
[% END -%]
    },
);

if ( $ExtUtils::MakeMaker::VERSION >= 5.43 ) {
    $opts{AUTHOR}   = '[% author_names.join( ', ' ) %]',
    $opts{ABSTRACT} = q{[% abstract %]},
}

WriteMakefile( %opts );

--- NEW FILE: FILES ---
Makefile.PL      --> Makefile.PL
App.pm           --> lib OpenInteract2 App [% subclass %].pm
Brick.pm         --> lib OpenInteract2 Brick [% subclass %].pm
module_include.t --> t 00_basic_include.t 
--- NEW FILE: Brick.pm ---
package [% full_brick_class %];

use strict;
use base qw( OpenInteract2::Brick );
use OpenInteract2::Exception;

my %INLINED_SUBS = (
[% FOREACH file_info = package_files -%]
    '[% file_info.name %]' => '[% file_info.inline_name %]',
[% END -%]
);

sub get_name {
    return '[% package_name %]';
}

sub get_resources {
    return (
[% FOREACH file_info = package_files -%]
        '[% file_info.name %]' => [ '[% file_info.destination %]', '[% file_info.evaluate %]' ],
[% END -%]
    );
}

sub load {
    my ( $self, $resource_name ) = @_;
    my $inline_sub_name = $INLINED_SUBS{ $resource_name };
    unless ( $inline_sub_name ) {
        OpenInteract2::Exception->throw(
            "Resource name '$resource_name' not found ",
            "in ", ref( $self ), "; cannot load content." );
    }
    return $self->$inline_sub_name();
}

OpenInteract2::Brick->register_factory_type( get_name() => __PACKAGE__ );

=pod

=head1 NAME

[% full_brick_class %] - Installation data for OpenInteract2 package '[% package_name %]'

=head1 SYNOPSIS

 oi2_manage install_package --package=[% package_name %]

=head1 DESCRIPTION

You generally don't use this class directly. See the docs for
L<[% full_app_class %]> and L<OpenInteract2::Brick> for more.

=head1 SEE ALSO

L<[% full_app_class %]>

=head1 COPYRIGHT

Copyright (c) 2005 [% author_names.join( ', ' ) %]. All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHORS

[% FOREACH author_info = authors %]
[% author_info.name %] E<lt>[% author_info.email %]E<gt>
[% END %]

=cut

[% FOREACH file_info = package_files %]
sub [% file_info.inline_name %] {
    return <<'SUPERLONGSTRING';
[% file_info.contents %]
SUPERLONGSTRING
}

[% END %]


--- NEW FILE: App.pm ---
package [% full_app_class %];

use strict;
use base qw( Exporter OpenInteract2::App );
use OpenInteract2::Manage;

$[% full_app_class %]::VERSION = '[% package_version %]';
@[% full_app_class %]::EXPORT  = qw( install );

sub get_brick_name {
    return '[% brick_name %]';
}

# Not a method, just an exported sub
sub install {
    my ( $website_dir ) = @_;
    my $manage = OpenInteract2::Manage->new( 'install_package' );
    $manage->param( website_dir   => $website_dir );
    $manage->param( package_class => __PACKAGE__ );
    return $manage->execute;
}

=pod

[% package_pod %]

=back