[Moscow.pm] if ( $sql_name ~~ @number_parameters_2 ) { backwards-compatibility

[Ivan Petrov]

> Hi guys,

> Переношу код на $perl -v

> This is perl, v5.8.4 built for sun4-solaris-64int

> .и фичи 5.10 не работают для
> переписал для себя уже и  Modern::Perl;
> Perl6::Say; для say
> а ~~ каким модулем заменить Any вроде какой-то был?

perldoc perlsyn /Smart matching in detail

там нужные конструкции