Hyper::Developer::Generator - abstract base class for code generation.

Hyper-Developer documentation Contained in the Hyper-Developer distribution.

Index

Code Index:

NAME

Top

Hyper::Developer::Generator - abstract base class for code generation.

VERSION

Top

This document describes Hyper::Developer::Generator 0.01

SYNOPSIS

Top

    package Hyper::Developer::Generator::Example;
    use base qw(Hyper::Developer::Generator);

    Hyper::Developer::Generator::Example->new({
        service   => 'MyService',
        usecase   => 'AnotherUsecase',
    });

    1;

DESCRIPTION

Top

Hyper::Developer::Generator is an abstract base class for code and environment generation in the Hyper framework.

ATTRIBUTES

Top

base_path :get :init_arg
template :get
namespace :name
verbose :name :default<()>
force :name :default<()>

SUBROUTINES/METHODS

Top

START

    package Hyper::Developer::Generator::Example;
    use base qw(Hyper::Developer::Generator);

    Hyper::Developer::Generator::Example->new({
        service   => 'MyService',
        usecase   => 'AnotherUsecase',
    });

    1;

Called automatically from Class::Std after object initialization.

create

    $generator->create();

Creates files for the service of the usecase.

verbose_message

    $object->verbose_message('message 1', 'message 2');

Prints params and a newline if verbose attribute is true.

DIAGNOSTICS

Top

CONFIGURATION AND ENVIRONMENT

Top

Use Hyper::Singleton::Context for your configuration.

Sample for your Context.ini

    [Global]
    base_path=/srv/web/www.example.com/

DEPENDENCIES

Top

INCOMPATIBILITIES

Top

BUGS AND LIMITATIONS

Top

RCS INFORMATIONS

Top

Last changed by
 $Author: ac0v $
Id
 $Id: Generator.pm 333 2008-02-18 22:59:27Z ac0v $
Revision
 $Revision: 333 $
Date
 $Date: 2008-02-18 23:59:27 +0100 (Mon, 18 Feb 2008) $
HeadURL
 $HeadURL: http://svn.hyper-framework.org/Hyper/Hyper-Developer/branches/0.07/lib/Hyper/Developer/Generator.pm $

AUTHOR

Top

Andreas Specht <ACID@cpan.org>

LICENSE AND COPYRIGHT

Top

Copyright (c) 2007, Andreas Specht <ACID@cpan.org>. All rights reserved.

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

Hyper-Developer documentation Contained in the Hyper-Developer distribution. 
package Hyper::Developer::Generator;

use strict;
use warnings;
use version; our $VERSION = qv('0.01');

use Class::Std;
use Template;

use Hyper::Error;
use Hyper::Singleton::Context;

my %base_path_of :ATTR(:init_arg<base_path> :get<base_path>);
my %template_of  :ATTR(:get<template>);
my %namespace_of :ATTR(:name<namespace>);
my %verbose_of   :ATTR(:name<verbose> :default<()>);
my %force_of     :ATTR(:name<force> :default<()>);

sub START {
    my ($self, $ident) = @_;

    $base_path_of{$ident} ||= Hyper::Singleton::Context->singleton
        ->get_context->get_config()->get_base_path();

    # create Template object
    $template_of{$ident} = Template->new({
        INCLUDE_PATH => [
            map {
                "$_/var";
            } $base_path_of{$ident},
              Hyper::Functions::get_path_from_file(__FILE__),
        ],
        INTERPOLATE  => 0,
        POST_CHOMP   => 0,
        EVAL_PERL    => 1,
        COMPILE_DIR  => '/tmp/tt', # <= tt drops a f*** warning if this is not set
    });

    return $self;
}

sub create {
    throw('you have to implement this method :)');
}

sub verbose_message {
    my $self = shift;

    $verbose_of{ident $self} and print @_, "\n";

    return $self;
}

1;

__END__