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 Test::mysqld::Persistent; | |
use strict; | |
use warnings; | |
use Test::mysqld; | |
use JSON; | |
use File::Spec; | |
sub new { | |
my ($class, %args) = @_; |
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
diff --git a/bin/make_sandbox_from_installed b/bin/make_sandbox_from_installed | |
index 7b3b5d8..47976c0 100755 | |
--- a/bin/make_sandbox_from_installed | |
+++ b/bin/make_sandbox_from_installed | |
@@ -98,8 +98,13 @@ for my $prefix (@prefixes) { | |
{ | |
$found_install_db =1; | |
} | |
- if ( glob("$prefix/lib/mysql/libmysqlclient*") | |
- or glob( "$prefix/lib/libmysqlclient*") ) { |
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
desc 1 before all | |
cont 1 before all | |
desc 1 before each | |
cont 1 before each | |
exam 1 before | |
exam 1 after | |
cont 1 after each | |
desc 1 after each | |
cont 1-1 before all | |
desc 1 before each |
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
diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm | |
index 2d0a845..56c1aa3 100644 | |
--- a/lib/App/cpanminus/script.pm | |
+++ b/lib/App/cpanminus/script.pm | |
@@ -1747,7 +1747,7 @@ sub resolve_name { | |
# Git | |
if ($module =~ /(?:^git(?:\+\w+)?:|\.git(?:@.+)?$)/) { | |
- return $self->git_uri($module); | |
+ return $self->git_uri($module, $version); |
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
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use FindBin::libs; | |
use YAML; | |
use Sniffer::RTMP; | |
my $dev = $ARGV[0] or die 'require device name'; |
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
my $router = HTTP::Router->define(sub { | |
$_->with({ controller => 'users' }, sub { | |
$_->match('/login')->register; | |
$_->match('/logout')->register; | |
$_->match('/signup')->register; | |
}); | |
}); |
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 MyApp; | |
__PACKAGE__->request_class('MyApp::Request'); | |
package MyApp::Request; | |
use strict; | |
use parent 'Catalyst::Request'; | |
sub method { |
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
#!/usr/bin/perl | |
use Data::OpenStruct::Deep; | |
my %hash = ( | |
foo => 1, | |
bar => { | |
baz => 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
diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm | |
index 95bdca8..fd2fc11 100644 | |
--- a/lib/Mouse/Meta/Role.pm | |
+++ b/lib/Mouse/Meta/Role.pm | |
@@ -107,7 +107,20 @@ sub apply { | |
for my $name ($self->get_attribute_list) { | |
next if $class->has_attribute($name); | |
my $spec = $self->get_attribute($name); | |
- Mouse::Meta::Attribute->create($class, $name, %$spec); | |
+ |
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
diff --git a/lib/ShipIt/VC/Git.pm b/lib/ShipIt/VC/Git.pm | |
index 9bf21d7..b5b6c2c 100644 | |
--- a/lib/ShipIt/VC/Git.pm | |
+++ b/lib/ShipIt/VC/Git.pm | |
@@ -61,6 +61,18 @@ sub commit { | |
print $tmp_fh $msg; | |
my $tmp_fn = "$tmp_fh"; | |
system($command, "commit", "-a", "-F", $tmp_fn); | |
+ | |
+ if (my $where = $self->{push_to}) { |
OlderNewer