Catalyst::Helper::Model::TextLinkAds - Helper for TextLinkAds Catalyst Models


Catalyst-Model-TextLinkAds documentation Contained in the Catalyst-Model-TextLinkAds distribution.

Index


Code Index:

NAME

Top

Catalyst::Helper::Model::TextLinkAds - Helper for TextLinkAds Catalyst Models

SYNOPSIS

Top

    script/myapp_create.pl model ModelName TextLinkAds [ tmpdir=/path/to/tmp ] [ nocache ]




DESCRIPTION

Top

Use this module to set up a new Catalyst::Model::TextLinkAds model for your Catalyst application.

Arguments

    ModelName is the short name for the Model class being generated (eg.
    "TextLinkAds")

    tmpdir is the path to a directory where temporary files should be stored.

    nocache disables caching which is definitely not recommended.




METHODS

Top

mk_compclass

This method takes the given arguments and generates a Catalyst::Model::TextLinkAds model for your application.

SEE ALSO

Top

Catalyst, Catalyst::Helper, Catalyst::Model::TextLinkAds

BUGS

Top

Please report any bugs or feature requests to bug-catalyst-model-textlinkads at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-Model-TextLinkAds.

SUPPORT

Top

You can find documentation for this module with the perldoc command.

    perldoc Catalyst::Helper::Model::TextLinkAds

You may also look for information at:

* Catalyst::Model::TextLinkAds

http://perlprogrammer.co.uk/module/Catalyst::Model::TextLinkAds/

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Catalyst-Model-TextLinkAds/

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-Model-TextLinkAds

* Search CPAN

http://search.cpan.org/dist/Catalyst-Model-TextLinkAds/

AUTHOR

Top

Dave Cardwell <dcardwell@cpan.org>

COPYRIGHT AND LICENSE

Top


Catalyst-Model-TextLinkAds documentation Contained in the Catalyst-Model-TextLinkAds distribution.
package Catalyst::Helper::Model::TextLinkAds;

use strict;
use warnings;

use Carp qw( croak );

our $VERSION = '0.01';


sub mk_compclass {
    my ( $self, $helper, @options ) = @_;
    
    # Extract the arguments...
    foreach (@options) {
        if ( /^tmpdir=(.+)$/ ) {
            $helper->{tmpdir} = $1;
        }
        elsif ( /^nocache$/ ) {
            $helper->{cache} = 0;
        }
    }
    
    $helper->{config_encountered} = (
        exists $helper->{tmpdir}
    );
    
    $helper->render_file( 'tlaclass', $helper->{file} );
}



1;
__DATA__

1;