clicktx::Tech::Memo

    ## add all the other fields
    for my $field ( keys %types ) {
	next unless defined $args{$field};
 
        if( $field eq 'MaxAmount' ) {
            push @secrd, SOAP::Data->name( $field => $args{$field} )->type( $types{$field} )
              ->attr( {currencyID => $currencyID, xmlns => $self->C_xmlns_ebay} );
        }
        ## 追記ココから
        elsif($field eq 'Address'){
            my @addr;
            my $hash = $args{$field};
            for my $f ( keys %$hash) {
               push @addr,  SOAP::Data->name( $f )->type(string => $args{$field}{$f} );
            }
            my $obj = SOAP::Data->name( $field => \SOAP::Data->value( @addr ));
            push @secrd,$obj;
        }
        ## 追記ココまで
        else {
            push @secrd, SOAP::Data->name( $field => $args{$field} )->type( $types{$field} );
        }
    }

    <%= stylesheet '/css/style.css' %>

    <link href="/css/style.css" media="screen" rel="stylesheet" type="text/css" />

sub startup {
    warn 'warn CGI run.';
    ....
}

{
    # MyApp config
 
    # サービス名
    SARVICE_NAME => 'hogehoge',
 
    # 配列のリファレンス等
    CATEGORY => [0,1,2,3,4],
}

package MyApp;
 
sub startup {
    my $self = shift;
 
    # コンフィグファイル読み込み
    my $config = $self->plugin('config', { file => 'etc/MyApp.conf', stash_key => 'conf' });
    ....
}

sub index {
    my $self = shift;
 
    #my $config = $self->stash('conf');
    my $config = $self->config;
    my $service_name = $config->{SARVICE_NAME};
    # or 
    my $service_name = $self->config('SARVICE_NAME');
    ....
}

    <%= stash('conf')->{SARVICE_NAME} %>
    <%= config->{SARVICE_NAME} %>
    <%= config('SARVICE_NAME') %>

<%= config 'SARVICE_NAME' %>

    package MyApp;
 
    use Mojo::Base 'Mojolicious';
 
    use DBIx::Custom;
 
    has dbi => sub {
        my $dbi = DBIx::Custom->connect(...);
        return $dbi;
    };
 
    sub startup {
        my $self = shift;
 
        ### YOU MUST NOT CALL dbi() method in starup().
    }

where => "url = 'http://hoge.com/huga.cgi?key=value' ",

where => {url => 'http://hoge.com/huga.cgi?key=value' },

    my $id = 1;
    my $url = 'http://hoge.com/huga.cgi?key=value';
    $result = $dbi->select(
        table   =>  'table_name',
        column  => [qw/title content url/],
        where => [
                    ["and", "{= id}", "url = :url", "update_time > SUBDATE( NOW(), interval 7 day )"],
                    { id => $id, url => $url},
        ],
    );