Home
last modified time | relevance | path

Searched refs:sub_name (Results 1 – 25 of 760) sorted by relevance

12345678910>>...31

/dports/devel/p5-Test-MockModule/Test-MockModule-0.16/lib/Test/
H A DMockModule.pm55 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 Ddefn.py45 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 DSub.t4 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 Dpush_pop.f9087 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 DInstaller.pm16 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 Dread_namelists.f901420 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 DSubs.pm35 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 Dlogging.py106 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 DIP.pm453 *{$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 D01basic.t15 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 D30signatures.t26 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 D02errors.t6 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 Dsmallversion.pl34 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 Dsmallversion.pl34 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 Dgen-mpi-sizeof.pl85 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 Dgen-mpi-sizeof.pl85 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 DUtil.pm78 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 Dpath_read_namelists_module.f90141 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 Dinstallation2.t67 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 DHook.pm33 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 DSubs.pm116 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 DStage.pm184 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 DAttrs.pm144 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 Dgperl-i11n-callback.c20 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 Dutils.cpp53 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()

12345678910>>...31