This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
A --> install snipmeta vim plugin | |
must be check https://github.com/garbas/vim-snipmate | |
"" | |
We recommend one of the following methods for installing SnipMate and | |
its dependencies. SnipMate depends on vim-addon-mw-utils and tlib. | |
Since SnipMate does not ship with any snippets, | |
we suggest looking at the vim-snippets repository. | |
"" | |
1. setup vundle | |
2. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use feature ":5.14"; | |
use Scalar::Util qw{refaddr }; | |
package BarSingleton; | |
my $this; | |
sub new { | |
if ( !$this ) { | |
$this = bless {}, shift; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
{ | |
package tools; | |
use Data::Dumper; | |
use Hook::LexWrap; | |
use Attribute::Handlers; | |
sub UNIVERSAL::Debug :ATTR(CODE) { | |
wrap $_[1], pre => sub { pop; print Dumper({'Pre' => \@_ })}, | |
post => sub { pop; print Dumper({'Post' => \@_ })}, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package main; | |
use strict; | |
use warnings; | |
use constant DEBUG => 1; | |
use Attribute::Handlers; | |
use Data::Dumper::Concise; | |
use Hook::LexWrap; | |
sub _log : ATTR(CODE) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Data::Dumper::Concise; | |
use Scalar::Util qw/reftype/; | |
use constant DEBUG => 1; | |
use Attribute::Handlers; | |
sub _log : ATTR(CODE) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package myint; | |
use strict; | |
use warnings; | |
sub import { | |
$^H{"myint/in_effect"} = 1; | |
} | |
sub unimport { | |
$^H{"myint/in_effect"} = 0; | |
} | |
sub in_effect { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# | |
#Symbol Table References | |
# | |
use feature ":5.14"; | |
use Scalar::Util qw(refaddr); | |
use Data::Dumper::Concise; | |
my $a1 =sub { | |
print "..............."; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use Log::Log4perl; | |
Log::Log4perl::init(\q{ | |
############################################################################### | |
# Log::Log4perl Conf # | |
############################################################################### | |
log4perl.logger.my_app = DEBUG, LOG1 | |
log4perl.appender.LOG1 = Log::Log4perl::Appender::File | |
log4perl.appender.LOG1.filename = C:\\my_app.log | |
log4perl.appender.LOG1.mode = append |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
netsh advfirewall set global StatefulFTP disable |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--libcurl FILE |