Micro-optimization, but it make using Danga::Socket for watching
pipe readability easier at some point.
use warnings;
use POSIX qw(dup2);
require IO::Handle;
use warnings;
use POSIX qw(dup2);
require IO::Handle;
+use fields qw(git_dir pid in out);
sub new {
my ($class, $git_dir) = @_;
sub new {
my ($class, $git_dir) = @_;
- bless { git_dir => $git_dir }, $class;
+ my $self = fields::new($class);
+ $self->{git_dir} = $git_dir;
+ $self;