| line |
l |
!l |
condition |
|
23
|
0 |
0 |
shift() || ''
|
|
76
|
0 |
0 |
shift() || {}
|
|
79
|
0 |
0 |
Egg::Plugin::rc::load_rc($self, $$c{'root'} || $$c{'start_dir'}) || {}
|
|
81
|
0 |
0 |
$$rc{'copywright'} || ''
|
|
82
|
0 |
0 |
$$rc{'author'} || ''
|
|
83
|
0 |
0 |
$$rc{'copywright'} || ''
|
|
84
|
0 |
0 |
$$rc{'license'} ||= 'perl'
|
|
87
|
0 |
0 |
$ENV{'LOGNAME'} || $ENV{'USER'} || 'none.'
|
|
140
|
0 |
0 |
shift() || 'text'
|
|
151
|
0 |
0 |
"> $file" || die(" File Open Error: $file - $! ")
|
|
169
|
0 |
0 |
shift() || 0
|
|
172
|
0 |
0 |
$$data{'filetype'} || ''
|
|
186
|
0 |
0 |
shift() || 0
|
|
196
|
0 |
0 |
shift() || '0.01'
|
|
203
|
0 |
0 |
shift() || {}
|
|
220
|
0 |
0 |
$$pm{'module_version'} ||= 0.01
|
|
234
|
0 |
0 |
$fname || ''
|
|
239
|
0 |
0 |
$proto->_conv_unix_path(@_) || (return '')
|
|
260
|
0 |
0 |
shift() || {}
|
|
302
|
0 |
0 |
$@ || (return 1)
|
|
305
|
0 |
0 |
$$err{'message'} || ''
|
|
309
|
0 |
0 |
$msg ||= '>> File generate error'
|
|
314
|
0 |
0 |
$ENV{'EGG_DBI_TEST_TABLE'} || 'egg_release_dbi_test'
|
|
|
0 |
0 |
$ENV{'EGG_DBI_DSN'} || ''
|
|
|
0 |
0 |
$ENV{'EGG_DBI_USER'} || ''
|
|
|
0 |
0 |
$ENV{'EGG_DBI_PASSWORD'} || ''
|
|
|
0 |
0 |
$ENV{'EGG_DBI_HOST'} || ''
|
|
|
0 |
0 |
$ENV{'EGG_DBI_PORT'} || ''
|
|
|
0 |
0 |
$_[0] || {}
|
|
326
|
0 |
0 |
uc shift() || 'GET'
|
|
327
|
0 |
0 |
shift() || '/request'
|
|
358
|
0 |
0 |
shift() || ''
|
|
367
|
0 |
0 |
shift() || (return '')
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
35
|
0 |
0 |
0 |
$ENV{'PERL_PATH'} or File::Which::which('perl')
|
|
63
|
0 |
0 |
0 |
shift() || croak(' I want yaml data. ')
|
|
81
|
0 |
0 |
0 |
$$rc{'author'} ||= $$rc{'copywright'} || ''
|
|
82
|
0 |
0 |
0 |
$$rc{'copywright'} ||= $$rc{'author'} || ''
|
|
83
|
0 |
0 |
0 |
$$rc{'headcopy'} ||= $$rc{'copywright'} || ''
|
|
87
|
0 |
0 |
0 |
$$rc{$_} ||= $ENV{'LOGNAME'} || $ENV{'USER'} || 'none.'
|
|
125
|
0 |
0 |
0 |
shift() || croak(' I want file path. ')
|
|
126
|
0 |
0 |
0 |
'FileHandle'->new($file) || croak(" '${file}' : $! ")
|
|
138
|
0 |
0 |
0 |
shift() || croak(' I want save path. ')
|
|
139
|
0 |
0 |
0 |
shift() || croak(' I want save value. ')
|
|
157
|
0 |
0 |
0 |
$type =~ /^script/i or $type =~ /^bin_exec/i
|
|
168
|
0 |
0 |
0 |
shift() || croak(' I want data. ')
|
|
170
|
0 |
0 |
0 |
$self->egg_var($param || {}, $$data{'filename'}) || croak(' I want data->{filename} ')
|
|
184
|
0 |
0 |
0 |
shift() || croak(' I want data. ')
|
|
191
|
0 |
0 |
0 |
$$self{'helper_document_template'} ||= $self->helper_yaml_load(join('', <DATA>))
|
|
206
|
0 |
0 |
0 |
$$pm{'project_name'} ||= $pname
|
|
212
|
0 |
0 |
0 |
$$pm{'output_path'} ||= $$pm{'project_root'}
|
|
218
|
0 |
0 |
0 |
$$pm{'created'} ||= 'Egg::Helper v' . 'Egg::Helper'->VERSION
|
|
243
|
0 |
0 |
0 |
$$pm{'output_path'} || $$pm{'project_root'}
|
|
262
|
0 |
0 |
0 |
$$pm{'output_path'} || $self->config->{'output_path'} || croak(q[ 'output_path' is empty. ])
|
|
284
|
0 |
0 |
0 |
$$attr{'param'} || croak(' I want generate param. ')
|
|
340
|
0 |
0 |
0 |
$self->helper_is_unix or exists $ENV{'EGG_MAKEMAKER'} and $ENV{'EGG_MAKEMAKER'}
|