view release on metacpan or  search on metacpan

lib/Redis/CappedCollection.pm  view on Meta::CPAN

_log_work( 'start', '$_running_script_name', ARGV )
";
                    $finish_str = "
_log_work( 'finish' )
";
                } else {
                    $finish_str = $start_str = '';
                }

                {
                    local $/ = '';
                    $lua_script_body{ $_running_script_name } =~ s/\n+\s*__START_STEP__\n/$start_str/g;
                    $lua_script_body{ $_running_script_name } =~ s/\n+\s*__FINISH_STEP__/$finish_str/g;
                }
                $script_prepared{ $_running_script_name } = 1;
            }

            $_running_script_body = $lua_script_body{ $_running_script_name };
            $sha1 = $_lua_scripts->{ $redis }->{ $_running_script_name } = sha1_hex( $_running_script_body );
            my $ret;
            if ( $self ) {