$ses::auth->{trust} or Error('Соединение не доверенное. Необходимо перелогиниться');

    if( 1 + 1 > 3 )
    {
        Error( Adm->id? 'Паника! Perl неправильно считает' : 'Сервис временно недоступен');
    }
    # Пополним счет клиента, при этом Pay_to_DB сама проставит автора
    Pay_to_DB(uid=>$uid, cash=>10, category=>1);

    if( ses::input('a') eq 'test' && ses::input_exists('b') )
    {
        # Условие сработает т.к. в url a=test и параметр b присутствует
        # Параметр uid на всякий случай принудительно приведем к целому числу
        my $uid = ses::input_int('uid');
        $uid or Error('Введите целое число, не равное нулю');
    }

    # Если параметр yes не существует либо не установлен,
    # отредиректимся сами на себя и пошлем все параметры + установим yes
    ses::input('yes') or url->redirect( { %$ses::input_orig, yes=>1 } );

    $Url->redirect(a=>'main', uid=>15);

    $Url->redirect(a=>'main', -error=>1, 
        -made=>'Ошибочная операция. Редиректимся на титульную страницу');

ToLeft 'Текст слева';

ToLeft MessageBox('Сообщение 1');
ToRight MessageBox('Сообщение 2');

Show MessageWideBox('Сообщение');

• title - заголовок сообщения
• msg - сообщение
• wide - если установлен, то рамка растягивается по ширине
• css_class - css class сообщения

Show Box(
    title => 'Заголовок',
    wide  => 1,
    msg   => 'Текст сообщения внутри рамки',
    css_class => 'error txtpadding',
);

Show WideBox();

ToLeft Menu(
    url->a( 'Список клиентов', a=>'users' ).
    url->a( 'Статистика трафика', a=>'traf_log' ).
    url->a( 'Google', -base=>'http://google.com' )
);

Show Center MessageBox('Center');

1 > 2 && Error('1 > 2 !!!');

$lang::hello_msg = 'Здравствуйте [filtr|bold], на вашем счету [bold] $';
Error_($lang::hello_msg, 'администратор', 1000);

ErrorMess('Что-то не так!');
Error('Точно что-то не так...');

• uid - id клиента, с которым связана запись или 0, если не связана. Необязательный параметр, по умолчанию 0.
• cash - сумма, или 0, если платеж не финансовый. Необязательный параметр, по умолчанию 0.
• reason - поле reason. Необязательный параметр.
• comment - поле comment. Необязательный параметр.
• time - timestamp платежа. Необязательный параметр, по умолчанию текущее время.
• category - категория. Обязательный параметр.

 Db->begin_work or Error($lang::err_try_again);
 my $rows1 = Db->do("UPDATE users SET balance=balance+(?) WHERE id=?", $money, $uid);
 my $rows2 = Pay_to_DB(uid=>$uid, cash=>$money, category=>1);
 if( $rows1 < 1 || $rows2 < 1 || !Db->commit )
 {
    Db->rollback;
    Error($lang::err_try_again);
 }

my $info = Get_usr_info(15);
ref $info or Error $info;
Show 'ФИО клиента с id=15: '.v::filtr($info->{fio});

debug('pre', $info);

Show _('[div][p h_center][div bold h_right]', 'Текст1', 'Текст2', 'Текст3');

<div>Текст1</div><p class='h_center'>Текст2</p><div class='bold h_right'>Текст3</div>

Show _('Вы ввели [filtr|trim|span bold]', '   xxx  ');

    # Создаем таблицу
    my $tbl = tbl->new( -class=>'td_wide' );
    # Первая строка
    $tbl->add( '*', 'lll', 'ячейка 1', 'ячейка 2', 'ячейка 3' );
    # Вторая строка
    $tbl->add( '*', 'lll', 'ячейка 1', 'ячейка 2', 'ячейка 3' );
    # Выводим таблицу
    Show $tbl->show;

-class  : css class таблицы
-row1   : css class первого ряда
-row2   : css class второго ряда

    my $tbl1 = tbl->new( -class=>'td_wide td_ok' );
    # Class для таблицы 2 будет 'td_wide td_ok'
    my $tbl2 = $tb1->new( -row1=>'row5' );

td_wide     : таблица максимальной ширины
fade_border : ячейки отделяются полупрозрачными линиями
pretty      : если в таблице будет мало строк, то они будут больше по высоте
td_ok       : оптимальный паддинг для ячеек таблицы
td_tall     : высокие строки
td_medium   : строки средней высоты
td_wide     : широкие ячейки
td_narrow   : узкие ячейки

l : выравнивание по левому краю
r : по правому
c : по центру
L : по левому и 2 ячейки объединяются в одну
R : по правому и 2 ячейки объединяются в одну
C : по центру и 2 ячейки объединяются в одну
E : по левому и 3 ячейки объединяются в одну
3 : по центру и 3 ячейки объединяются в одну
4 : по центру и 4 ячейки объединяются в одну
..
9 : по центру и 9 ячеек объединяются в одну
t : по центру и вертикальное выравнивание top
T : 2 ячейки в одну, по центру и вертикальное выравнивание top
пробел : пустая ячейка

    my $tbl = tbl->new( -class=>'td_wide td_ok' );
    $tbl->add( '*', 'rcl', 'равнение на право', 'центр', 'лево');
    $tbl->add( '*', 'rL', 'текст в 1й ячейке', 'ячейка 2 и 3 объеденена в 1');
    $tbl->add( '*', '3', 'текст по центру и все ячейки объеденены в одну');
    Show $tbl->show;

    $tbl->add( '*', 'rl', 'вы прислали строку', ses::input('str'));
    $tbl->add( '*', 'rl', 'поле ввода', [ v::input_t(name=>'str') ]);

    $tbl->add( '*', 'll', 'Здравствуйте', 'Станислав');
    # ячейка будет объеденена с последней т.к. в предыдущей строке 2 столбца
    $tbl->add( '*', 'l', 'сегодня все ок');
    # return не сработает т.к. в таблице 2 строки
    $tbl->rows < 1 && return;

    $tbl->add( '*', [
        [ 'bold h_left', 'Заголовок 1й колонки', 'Внимание' ],
        [ 'h_right',     'Заголовок 2й колонки', 'всем' ],
    ]);

new     : создание нового объекта
a       : рендеринг url-объекта в гиперрсылку
post_a  : рендеринг в гипперссылку, при нажатии на которую
            данные будут отправленны post-методом
form    : рендеринг url-объекта в форму
url     : получение url из объекта
redirect: редирект

    my $url = url->new( a=>1, b=>2, -class=>'nav', -style=>'color:#000' );
    Show $url->a('Текст ссылки');

    my $url = url->new( a=>1, b=>2, -class=>'nav', -style=>'color:#000' );
    my $url2 = url->new( b=>3 ); #?a=1&b=3
    $url2->{a} = 'demo'; #?a=demo&b=3
    Show $url2->a('OK', b=>4); #?a=demo&b=4
    $url->{b} = undef;
    Show $url2->a('OK'); #?a=demo

    my $url = url->new( -class=>'nav' );
    # Но лучше это сделать через стиль или класс
    Show $url->a( [ '<b>Bold text</b>' ] );

my $form = _('[p][p h_center][p h_center]',
    'Введите целое положительное число:',
    v::input_t(name=>'num'),
    v::submit('Далее')
);
my $form = $Url->form(
    a=>'module_name', param2=>'test', $form
);

• Db->sql( sql, параметры для плейсхолдеров )
• Db->sql({ параметры })

my %p = Db->line( параметры );

• пустая выборка
• произошла ошибка (неверный sql, дисконнект БД,...)

my %p = Db->line("SELECT * FROM users WHERE id=? AND grp=?", $id, $grp);
Show %p? "$p{name}, $p{fio}" : Db->ok? 'пустая выборка' : 'внутренняя ошибка';

my $db = Db->sql("SELECT id, name FROM users WHERE field=?", $unfiltered_field);
while( my %p = $db->line )
{
    Show "$p{id} = $p{name}<br>";
}

my $db = Db->sql(
    sql     => "SELECT * FROM tbl WHERE field=? AND val=?",
    param   => [ $filed, $val ],
    comment => 'Выборка номер 2',
);
while( my %p = $db->line ) { ... }

my $rows = Db->do("UPDATE websessions SET uid=?, role=? WHERE ses=? LIMIT 1", $id, $role, $ses);
$rows>0 or Error('Ошибка!'); # не делайте $rows or Error() т.к. rows может = -1

Db->do_all(
    [$sql1, $param1, $param2 ],
    [$sql2, $param3 ],
);

• disconnect - разрывает соединение с БД
• connect - осуществляет соединение с БД
• begin_work - старт транзакции
• commit - коммит транзакции
• rollback - откат транзакции
• ok - успешен ли был последний выполненный sql
• rows - строк затронул последний выполненный sql
• filtr - эскейпинг опасных символов sql