/dports/devel/p5-Test-MockModule/Test-MockModule-0.16/lib/Test/ |
H A D | MockModule.pm | 55 my $coderef = *{$sub_name}{'CODE'}; 65 croak "$sub_name does not exist!"; 87 TRACE("Storing existing $sub_name"); 89 if (defined &{$sub_name}) { 96 _replace_sub($sub_name, $code); 120 carp $sub_name . " was not mocked"; 146 my ($self, $sub_name) = @_; 159 my ($sub_name, $coderef) = @_; 165 *{$sub_name} = $coderef; 179 undef *$sub_name; [all …]
|
/dports/www/py-spyne/spyne-2.13.16/spyne/interface/xml_schema/ |
H A D | defn.py | 45 max_occurs = XmlAttribute(Unicode(default="1", sub_name="maxOccurs")) 47 min_occurs = XmlAttribute(Unicode(default="1", sub_name="minOccurs")) 62 ('item_type', XmlAttribute(Unicode(sub_name='itemType'))), 80 simple_type = SimpleType.customize(sub_name='simpleType') 86 ('max_length', IntegerAttribute.customize(sub_name="maxLength")), 87 ('min_length', IntegerAttribute.customize(sub_name="minLength")), 103 choices = Choice.customize(max_occurs="unbounded", sub_name="choice") 120 simple_content = SimpleContent.customize(sub_name="simpleContent") 127 schema_location = XmlAttribute(Unicode(sub_name="schemaLocation")) 137 sub_name="import")), [all …]
|
/dports/devel/p5-Test2-Suite/Test2-Suite-0.000143/t/modules/Util/ |
H A D | Sub.t | 4 sub_name 8 sub_name 13 like(sub_name(\&named), qr/named$/, "got sub name (named)"); 14 like(sub_name(\&unnamed), qr/__ANON__$/, "got sub name (anon)"); 17 dies { sub_name() }, 18 qr/sub_name requires a coderef as its only argument/, 23 dies { sub_name('xxx') }, 24 qr/sub_name requires a coderef as its only argument/, 29 dies { sub_name({}) }, 30 qr/sub_name requires a coderef as its only argument/,
|
/dports/science/berkeleygw/BGW-2.0.0/Common/ |
H A D | push_pop.f90 | 87 subroutine push_sub(sub_name) argument 88 character(len=*), intent(in) :: sub_name local 101 call trim_sub_name(sub_name, sub_name2) 133 subroutine pop_sub(sub_name) argument 134 character(len=*), intent(in) :: sub_name local 142 call trim_sub_name(sub_name, sub_name2) 189 subroutine trim_sub_name(sub_name, output) argument 196 do ic = 1, len(sub_name) 197 if(sub_name(ic:ic) == '/') slash = ic 200 if(slash >= len(sub_name) - 1) then [all …]
|
/dports/devel/p5-Sub-Installer/Sub-Installer-v0.0.3/lib/Sub/ |
H A D | Installer.pm | 16 for my $sub_name (keys %{$sub_def_ref}) { 18 *{$package_name.'::'.$sub_name} 20 … = Sub::Installer::Util::_normalize_sub($package_name, $sub_name, $sub_def_ref->{$sub_name}); 32 for my $sub_name (keys %{$sub_def_ref}) { 34 *{$package_name.'::'.$sub_name} 36 … = Sub::Installer::Util::_normalize_sub($package_name, $sub_name, $sub_def_ref->{$sub_name}); 46 my ($package_name, $sub_name, $sub_code) = @_;
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | read_namelists.f90 | 1420 CALL errore( sub_name , & 1444 CALL infomsg( sub_name ,& 1463 CALL errore( sub_name, & 1466 CALL errore( sub_name, & 1469 CALL errore( sub_name, & 1472 CALL errore( sub_name, & 1476 CALL errore( sub_name, & 1479 CALL errore( sub_name, & 1482 CALL errore( sub_name, & 1492 IF( .NOT. allowed ) CALL errore(sub_name, & [all …]
|
/dports/www/interchange/interchange-5.6.3/lib/Vend/ |
H A D | Subs.pm | 35 my $sub_name = $AUTOLOAD; 36 $sub_name =~ s/.*:://; 40 and defined $Vend::Cfg->{AdminSub}{$sub_name} 45 $sub_name, 50 die ::errmsg("Unauthorized for admin sub '%s'", $sub_name); 54 my $sub_ref = $Vend::Cfg->{Sub}{$sub_name} || $Global::GlobalSub->{$sub_name}; 56 ::logError("Sub '%s' not defined.", $sub_name);
|
/dports/mail/mailman3/mailman-3.3.1/src/mailman/core/ |
H A D | logging.py | 106 def _init_logger(propagate, sub_name, log, logger_config): argument 121 handler = ReopenableFileHandler(sub_name, path_abs) 122 _handlers[sub_name] = handler 145 sub_name = logger_config.name.split('.')[-1] 146 if sub_name == 'root': 148 if sub_name == 'locks': 153 if sub_name == 'database': 161 elif sub_name == 'smtp': 166 logger_name = 'mailman.' + sub_name 179 def get_handler(sub_name): argument [all …]
|
/dports/net-mgmt/p5-Data-Validate-IP/Data-Validate-IP-0.27/lib/Data/Validate/ |
H A D | IP.pm | 453 *{$sub_name} = $sub; 455 push @EXPORT, $sub_name; 481 *{$sub_name} = $sub; 483 push @EXPORT, $sub_name; 536 *{$sub_name} = $sub; 538 push @EXPORT, $sub_name; 563 *{$sub_name} = $sub; 565 push @EXPORT, $sub_name; 596 *{$sub_name} 597 = eval "sub { ${sub_name}v4(\@_) || ${sub_name}v6(\@_) }"; [all …]
|
/dports/devel/p5-Sub-Identify/Sub-Identify-0.14/t/ |
H A D | 01basic.t | 15 is( sub_name( \&sub_name ), 'sub_name' ); 16 is( sub_name( \&buffy ), 'buffy' ); 17 is( sub_name( \&vamp::spike ), 'spike' ); 18 is( sub_name( \&slayer ), 'buffy' ); 19 is( sub_name( \&human::william ), 'spike' ); 41 is( sub_name( \&xander ), 'xander', 'undefined subroutine' ); 44 is( sub_name( \&vamp::drusilla ), 'drusilla', 'undefined subroutine' ); 47 is( sub_name( sub {} ), '__ANON__' );
|
H A D | 30signatures.t | 26 is( sub_name( \&sub_name ), 'sub_name' ); 27 is( sub_name( \&buffy ), 'buffy' ); 28 is( sub_name( \&vamp::spike ), 'spike' ); 29 is( sub_name( \&slayer ), 'buffy' ); 30 is( sub_name( \&human::william ), 'spike' ); 52 is( sub_name( \&xander ), 'xander', 'undefined subroutine' ); 55 is( sub_name( \&vamp::drusilla ), 'drusilla', 'undefined subroutine' ); 58 is( sub_name( sub ($x, $y, $z) { } ), '__ANON__' );
|
H A D | 02errors.t | 6 ok( !defined sub_name( undef ) ); 7 ok( !defined sub_name( "scalar" ) ); 8 ok( !defined sub_name( \"scalar ref" ) ); 9 ok( !defined sub_name( \@INC ) );
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | smallversion.pl | 34 print FILE " end ! subroutine $sub_name\n"; 43 $sub_name = "util_ver_" . $sub_cnt; 45 print FILE "* $sub_name \n"; 47 print FILE " subroutine $sub_name()\n"; 58 print FILE " end ! subroutine $sub_name\n"; 69 $sub_name = "util_ver_" . $count; 70 print FILE " call $sub_name()\n";
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
H A D | smallversion.pl | 34 print FILE " end ! subroutine $sub_name\n"; 43 $sub_name = "util_ver_" . $sub_cnt; 45 print FILE "* $sub_name \n"; 47 print FILE " subroutine $sub_name()\n"; 58 print FILE " end ! subroutine $sub_name\n"; 69 $sub_name = "util_ver_" . $count; 70 print FILE " call $sub_name()\n";
|
/dports/net/openmpi3/openmpi-3.1.6/ompi/mpi/fortran/base/ |
H A D | gen-mpi-sizeof.pl | 85 my $sub_name = "Sizeof_$suffix"; 89 $subr->{name} = $sub_name; 90 my $start = "${indent}SUBROUTINE ^PREFIX^$sub_name^RANK^(x, size, ierror)\n"; 102 $subr->{end} = "${indent}END SUBROUTINE ^PREFIX^$sub_name^RANK^"; 105 $subs->{$sub_name} = $subr; 109 my ($prefix, $sub_name, $rank, $want_body) = @_; 113 %{$subr} = %{$subs->{$sub_name}}; 171 foreach my $sub_name (sort(keys(%{$subs}))) { 174 my $str = generate($prefix, $sub_name, $rank, $want_bodies);
|
/dports/net/openmpi/openmpi-4.1.1/ompi/mpi/fortran/base/ |
H A D | gen-mpi-sizeof.pl | 85 my $sub_name = "Sizeof_$suffix"; 89 $subr->{name} = $sub_name; 90 my $start = "${indent}SUBROUTINE ^PREFIX^$sub_name^RANK^(x, size, ierror)\n"; 102 $subr->{end} = "${indent}END SUBROUTINE ^PREFIX^$sub_name^RANK^"; 105 $subs->{$sub_name} = $subr; 109 my ($prefix, $sub_name, $rank, $want_body) = @_; 113 %{$subr} = %{$subs->{$sub_name}}; 171 foreach my $sub_name (sort(keys(%{$subs}))) { 174 my $str = generate($prefix, $sub_name, $rank, $want_bodies);
|
/dports/databases/p5-SQL-Statement/SQL-Statement-1.414/lib/SQL/Statement/ |
H A D | Util.pm | 78 my ( $class, $name, $sub_name, $args ) = @_; 79 my ( $pkg, $sub ) = $sub_name =~ /^(.*::)([^:]+$)/; 83 $sub = $sub_name; 89 sub_name => $sub, 98 sub sub_name { shift->{sub_name} } subroutine 105 my $sub = $self->sub_name; 121 my $sub = $self->sub_name;
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/NEB/src/ |
H A D | path_read_namelists_module.f90 | 141 CHARACTER(LEN=20) :: sub_name = ' path_checkin ' local 148 CALL errore( sub_name,' ds out of range ',1) 150 CALL errore( sub_name,' temp_req out of range ',1) 158 CALL errore( sub_name, ' opt_scheme '''// & 164 IF ( k_max < 0.0_DP ) CALL errore( sub_name, 'k_max out of range', 1 ) 165 IF ( k_min < 0.0_DP ) CALL errore( sub_name, 'k_min out of range', 1 ) 166 IF ( k_max < k_min ) CALL errore( sub_name, 'k_max < k_min', 1 ) 176 CALL errore( sub_name, ' CI_scheme ''' // & 188 CALL errore( sub_name, ' fcp_relax ''' // &
|
/dports/devel/p5-App-perlbrew/App-perlbrew-0.93/t/ |
H A D | installation2.t | 67 foreach my $sub_name (keys %expectations) { 68 ok $expectations{$sub_name}->verify, "$sub_name is called"; 85 foreach my $sub_name (keys %expectations) { 86 ok $expectations{$sub_name}->verify, "$sub_name is called";
|
/dports/www/p5-RPC-ExtDirect/RPC-ExtDirect-3.24/lib/RPC/ExtDirect/API/ |
H A D | Hook.pm | 33 my ($package, $sub_name); 41 $sub_name = pop @parts; 45 die "Can't resolve '$type' hook $coderef" unless $sub_name; 52 sub_name => $sub_name, 103 my $hook_sub_name = $self->sub_name;
|
/dports/devel/p5-Specio/Specio-0.47/lib/Specio/ |
H A D | Subs.pm | 116 my $sub_name = shift; 124 . $sub_name 129 _install_sub( $caller, $sub_name, $sub ); 150 my $sub_name = shift; 153 my $fq_name = $caller . '::' . $sub_name; 162 push @{ $Installed{$caller} }, $sub_name;
|
/dports/devel/p5-POE-Stage/POE-Stage-0.060/lib/POE/ |
H A D | Stage.pm | 184 my $sub_name = *{$symbol}{NAME}; 185 next unless defined($sub_name) and $sub_name =~ /^on_/; 188 my $full_name = $package . '::' . $sub_name; 415 my $sub_name = *{$sym}{NAME}; 417 return if exists $subclass{$pkg}{$sub_name}; 418 $subclass{$pkg}{$sub_name} = 1; 423 unless (defined $sub_name) { 428 my $full_name = $pkg . '::' . $sub_name;
|
/dports/devel/p5-Perl6-Export-Attrs/Perl6-Export-Attrs-0.000006/lib/Perl6/Export/ |
H A D | Attrs.pm | 144 if (my ($sub_name) = $request =~ m/\A &? ($IDENT) (?:\(\))? \z/xms) { 145 if (exists $request{$sub_name}) { 151 if (my $sub_ref = *{$package.'::'.$sub_name}{CODE}) { 153 $request{$sub_name} = $sub_ref; 196 for my $sub_name (keys %request) { 198 my ($sym_name) = $sub_name =~ m{\A [\$\@&%]? (.*)}xms; 199 *{$caller.'::'.$sym_name} = $request{$sub_name};
|
/dports/devel/p5-Glib-Object-Introspection/Glib-Object-Introspection-0.049/ |
H A D | gperl-i11n-callback.c | 20 info->sub_name = NULL; in create_perl_callback_closure() 43 create_perl_callback_closure_for_named_sub (GICallableInfo *cb_info, gchar *sub_name) in create_perl_callback_closure_for_named_sub() argument 53 info->sub_name = sub_name; in create_perl_callback_closure_for_named_sub() 85 if (info->sub_name) in release_perl_callback() 86 g_free (info->sub_name); in release_perl_callback()
|
/dports/x11-themes/qtcurve-utils/qtcurve-1.9/lib/utils/ |
H A D | utils.cpp | 53 const char *sub_name; in getProgName() local 54 if ((sub_name = strrchr(name, '/')) && sub_name[1]) { in getProgName() 55 return strdup(sub_name + 1); in getProgName()
|