akzhan

sub update {
    my $self = shift;

    my $data = $self->req->json;
    return $self->render(
        json => {
            success => \0,
            error   => "No data provided",
        }
    ) unless $data;

akzhan

Markdown License badges

Collection of License badges for your Project's README file.
This list includes the most common open source and open data licenses.
Easily copy and paste the code under the badges into your Markdown files.

Notes

• Badges are made with Shields.io.
• This badges do not fully replace the license informations for your projects, they are only emblems for the README, that the user can see the License at first glance.  
• 🇫🇷 Cette liste en français

akzhan

package Cat;
use Moose;

package Generator;

use Mouse::Meta::Class;
use Mouse::Meta::Attribute;

sub generate {
    my $siberian = Mouse::Meta::Class->create('Siberian');

akzhan

package YourCompany::Util::Redis;

use YourCompany::Perl;

use YourCompany::Config ();

BEGIN {
    require parent;
    eval {
        parent->import( 'Redis::Fast' );

akzhan

include = BuiltinFunctions::ProhibitBooleanGrep BuiltinFunctions::ProhibitStringyEval BuiltinFunctions::ProhibitStringySplit BuiltinFunctions::ProhibitUniversalCan BuiltinFunctions::ProhibitUniversalIsa ClassHierarchies::ProhibitExplicitISA CodeLayout::ProhibitHardTabs ControlStructures::ProhibitMutatingListFunctions ControlStructures::ProhibitUnreachableCode ErrorHandling::RequireCarping InputOutput::ProhibitBarewordFileHandles InputOutput::RequireCheckedClose InputOutput::RequireCheckedOpen InputOutput::RequireCheckedSyscalls InputOutput::ProhibitInteractiveTest InputOutput::ProhibitOneArgSelect InputOutput::ProhibitTwoArgOpen Miscellanea::ProhibitFormats Modules::ProhibitEvilModules Modules::RequireEndWithOne Objects::ProhibitIndirectSyntax Policy::TestingAndDebugging::RequireUseStrict Policy::TestingAndDebugging::RequireUseWarnings RegularExpressions::ProhibitCaptureWithoutTest Subroutines::ProhibitBuiltinHomonyms Subroutines::ProhibitReturnSort Subroutines::ProhibitSubroutinePrototypes Subroutines::Prohi

akzhan

package BUX::Util::JSON;

=encoding utf-8

=head1 NAME

BUX::Util::JSON

=head1 SYNOPSYS

akzhan

package BUX::Util::JSONColumn;

use strict;
use warnings;
use utf8;

use JSON::XS ();
use Encode qw( encode_utf8 decode_utf8 );

sub register_column {

akzhan

package BUX::DB::HashRefInflator;

use strict;
use warnings;
use utf8;

use parent qw( DBIx::Class::ResultClass::HashRefInflator );

sub inflate_result {
    my ( $self, @args ) = @_;

akzhan

use JSON::XS ();
use DBIx::Class::ResultClass::HashRefInflator;
 
my $jsoner = JSON::XS->new->utf8(0)->allow_blessed;
 
sub country {
    my $self = shift;

    my $c = schema->resultset('Country')->search(undef, {
        result_class => 'DBIx::Class::ResultClass::HashRefInflator',

akzhan

#  habraproxy.py — это простейший http-прокси-сервер, запускаемый локально (порт на ваше 
#  усмотрение), который показывает содержимое страниц Хабра. С одним исключением: после  
#  каждого слова из шести букв должен стоять значок «™». Примерно так:
#
#  http://habrahabr.ru/company/yandex/blog/258673/
#  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
#  Сейчас на фоне уязвимости Logjam все в индустрии в очередной раз обсуждают проблемы и 
#  особенности TLS. Я хочу воспользоваться этой возможностью, чтобы поговорить об одной из 
#  них, а именно — о настройке ciphersiutes.
#