view release on metacpan or  search on metacpan

share/public/revealjs/README.md  view on Meta::CPAN

242
243
244
245
246
247
248
249
250
251
252
// Flags if the presentation is running in an embedded mode,
// i.e. contained within a limited portion of the screen
embedded: false,
 
// Flags if we should show a help overlay when the questionmark
// key is pressed
help: true,
 
// Flags if speaker notes should be visible to all viewers
showNotes: false,

share/public/revealjs/README.md  view on Meta::CPAN

277
278
279
280
281
282
283
284
285
286
287
mouseWheel: false,
 
// Hides the address bar on mobile devices
hideAddressBar: true,
 
// Opens links in an iframe preview overlay
// Add `data-preview-link` and `data-preview-link="false"` to customise each link
// individually
previewLinks: false,
 
// Transition style

share/public/revealjs/README.md  view on Meta::CPAN

501
502
503
504
505
506
507
508
509
510
511
// Toggle presentation states, optionally pass true/false to force on/off
Reveal.toggleOverview();
Reveal.togglePause();
Reveal.toggleAutoSlide();
 
// Shows a help overlay with keyboard shortcuts, optionally pass true/false
// to force on/off
Reveal.toggleHelp();
 
// Change a config value at runtime
Reveal.configure({ controls: true });

share/public/revealjs/README.md  view on Meta::CPAN

549
550
551
552
553
554
555
556
557
558
559
560
For example
 
```javascript
// The binding parameter provides the following properties
//      keyCode: the keycode for binding to the callback
//          key: the key label to show in the help overlay
//  description: the description of the action to show in the help overlay
Reveal.addKeyBinding( { keyCode: 84, key: 'T', description: 'Start timer' }, function() {
        // start timer
} )
 
// The binding parameter can also be a direct keycode without providing the help description

share/public/revealjs/README.md  view on Meta::CPAN

564
565
566
567
568
569
570
571
572
573
```
 
This allows plugins to add key bindings directly to Reveal so they can
 
* make use of Reveal's pre-processing logic for key handling (for example, ignoring key presses when paused); and
* be included in the help overlay (optional)
 
### Slide Changed Event
 
A `slidechanged` event is fired each time the slide is changed (regardless of state). The event object holds the index values of the current slide as well as a reference to the previous and current slide HTML nodes.

 view release on metacpan or  search on metacpan

lib/Mojolicious/public/vendor/SemanticUI/components/nag.min.css  view on Meta::CPAN

5
6
7
8
9
10
*
* Copyright 2014 Contributors
* Released under the MIT license
* http://opensource.org/licenses/MIT
*
*/.ui.nag{display:none;opacity:.95;position:relative;top:0;left:0;z-index:999;min-height:0;width:100%;margin:0;padding:.75em 1em;background:#555;box-shadow:0 1px 2px 0 rgba(0,0,0,.2);font-size:1rem;text-align:center;color:rgba(0,0,0,.8);border-radiu...

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/SpectreCss/asset/public/spectre/0.5.3/core.min.css  view on Meta::CPAN

1
/*! Spectre.css v0.5.3 | MIT License | github.com/picturepan2/spectre */html{font-family:sans-serif;-webkit-text-size-adjust:100%;-ms-text-size-adjust:100%}body{margin:0}article,aside,footer,header,nav,section{display:block}h1{font-size:2em;margin:.6...

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/StaticShare/static/static-share/css/main.css  view on Meta::CPAN

6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
    width: 100%; }
    .modal .modal-footer .btn, .modal .modal-footer .btn-large, .modal .modal-footer .btn-flat {
      float: right;
      margin: 6px 0; }
 
.modal-overlay {
  position: fixed;
  z-index: 999;
  top: -100px;
  left: 0;
  bottom: 0;

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/resources/public/mojo-status/bootstrap/bootstrap.css  view on Meta::CPAN

1
2
3
4
5
6
7
/*!
 * Bootstrap v4.4.1 (https://getbootstrap.com/)
 * Copyright 2011-2019 The Bootstrap Authors
 * Copyright 2011-2019 Twitter, Inc.
 * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
 */:root{--blue:#007bff;--indigo:#6610f2;--purple:#6f42c1;--pink:#e83e8c;--red:#dc3545;--orange:#fd7e14;--yellow:#ffc107;--green:#28a745;--teal:#20c997;--cyan:#17a2b8;--white:#fff;--gray:#6c757d;--gray-dark:#343a40;--primary:#007bff;--secondary:#6c75...
/*# sourceMappingURL=bootstrap.min.css.map */

 view release on metacpan or  search on metacpan

t/share/templates.txt  view on Meta::CPAN

185
186
187
188
189
190
191
192
193
194
195
template NewTemplate {
        extends BasicTemplate;
        attribute 'paragraphs' => (isa=>ArrayRef);
         
        overlay '//h1' {
                $matched->create_or_append_attribute({class=>'ggg'});
                $matched->insert_before->hr;
                 
        }
        

t/share/templates.txt  view on Meta::CPAN

198
199
200
201
202
203
204
205
206
207
208
                        '{This adds some stuff}
                }
                $self->$body;
        }
 
overlay addsomething {
         
        match('//h1') as fix_h1s {
                $matched->create_or_append_attribute({class=>'ggg'});
                $matched->insert_before->hr;              
        }

 view release on metacpan or  search on metacpan

lib/Music/Abc/DT.pm  view on Meta::CPAN

57
58
59
60
61
62
63
64
65
66
67
  ABC_T_REST   => 5,
  ABC_T_BAR    => 6,
  ABC_T_EOLN   => 7,
  ABC_T_MREST  => 8,   #  multi-measure rest
  ABC_T_MREP   => 9,   #  measure repeat
  ABC_T_V_OVER => 10,  #  voice overlay
  ABC_T_TUPLET => 11,
};
 
use constant { # symbol state in file/tune
  ABC_S_GLOBAL  => 0,      # global

lib/Music/Abc/DT.pm  view on Meta::CPAN

93
94
95
96
97
98
99
100
101
102
  ALTO   =>  1,
  BASS   =>  2,
  PERC   =>  3
};
 
use constant { # voice overlay
  V_OVER_V  => 0,  #  &
  V_OVER_S  => 1,  #  (&
  V_OVER_E  => 2   #  &)
};

lib/Music/Abc/DT.pm  view on Meta::CPAN

2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
  }
 
  return $abc;
}
 
# -- return abc of voice overlay
sub _vover_to_abc {
  my ( $new_abc, $sym ) = @_;
 
  given ( $sym->{info}->{type} ) {
    when (V_OVER_V) { $new_abc .= q{&}; }

 view release on metacpan or  search on metacpan

cgi-bin/Content/files.pl  view on Meta::CPAN

321
322
323
324
325
326
327
328
329
330
331
                          </tr></table>|,
                ],
                image => ( -e "$m_hrSettings->{cgi}{DocumentRoot}/style/$m_sStyle/$m_hrSettings->{size}/mimetypes/$suffix.png" )
                ? "$suffix.png"
                : 'link_overlay.png',
            };
        } ## end if ( -f $fl )
    } ## end TYPE:
} ## end foreach my $d ( readdir(DIR...))
$r = 0;

 view release on metacpan or  search on metacpan

test/stex02.t  view on Meta::CPAN

29
30
31
32
33
34
35
36
37
38
39
#
# Example STEX02 demonstrates how both the field flow utilities -
# Vectors and Streamlines - map into the non-uniform coordinate
# systems supported by the NCAR Graphics SET call. Each of the
# five frames display a uniform 45 degree field using a Streamlines
# representation overlaying a Vectors representation. The first four
# frames cycle through all possible settings of the Linear-Log (LL)
# argument to the SET call. The fifth frame shows a user coordinate
# system where the unit X is twice the size of the unit Y.
#
# The example also illustrates use of the compatibility mode parameter

 view release on metacpan or  search on metacpan

t/pages/HeytingAlgebra.html  view on Meta::CPAN

50
51
52
53
54
55
56
57
58
59
60
<script type="text/javascript" src="http://planetmath.org/sites/all/modules/dhtml_menu/dhtml_menu.js?mjnfzq"></script>
<script type="text/javascript" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=MML_HTMLorMML"></script>
<script type="text/javascript" src="http://planetmath.org/sites/all/modules/mathjax/mathjax.js?mjnfzq"></script>
<script type="text/javascript">
<!--//--><![CDATA[//><!--
jQuery.extend(Drupal.settings, {"basePath":"\/","pathPrefix":"","ajaxPageState":{"theme":"planetmath","theme_token":"Kk0KRS0tXVUbdgHj2d0PwPJQYnfArkFqnDhuhSHeD7s","js":{"0":1,"misc\/jquery.js":1,"misc\/jquery.once.js":1,"misc\/drupal.js":1,"sites\/all...
//--><!]]>
</script>
  <meta property="og:image" content="http://planetmath.org/sites/default/files/fab-planet.png" />
</head>
<body class="html not-front not-logged-in two-sidebars page-node page-node- page-node-38734 node-type-article og-context og-context-node og-context-node-85022 section-heytingalgebra" >

 view release on metacpan or  search on metacpan

lib/Net/Dropbox.pm  view on Meta::CPAN

54
55
56
57
58
59
60
61
62
63
64
sub file_status { #{{{
        my $self = shift;
        my $file = shift;
 
        my $res = $self->_send_and_fetch(
                "icon_overlay_file_status",
                { path => $file },
        );
 
        return $res;
} #}}}

lib/Net/Dropbox.pm  view on Meta::CPAN

73
74
75
76
77
78
79
80
81
82
83
return { ok => 0, status => 'not a dir' } 
        unless( -d $dir );
 
my $res = $self->_send_and_fetch(
        "icon_overlay_file_status",
        { path => $dir },
);
 
if($res->{ok} == 1) {
        my $res2 = $self->_send_and_fetch(

 view release on metacpan or  search on metacpan

doc/display_device.cgi  view on Meta::CPAN

203
204
205
206
207
208
209
210
211
212
213
    document.getElementById("lat").innerHTML = center.y;
    document.getElementById("lon").innerHTML = center.x;
  }
);
GEvent.addListener(map, 'moveend',
  function(overlay) {
    var bounds = map.getBoundsLatLng();
    var center = map.getCenterLatLng();
    document.getElementById("maxX").innerHTML = bounds.maxX;
    document.getElementById("maxY").innerHTML = bounds.maxY;
    document.getElementById("minX").innerHTML = bounds.minX;

 view release on metacpan or  search on metacpan

demos/client/SNlib.pl  view on Meta::CPAN

1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
s/(<[^>]*\bname\s*=\s*["']?)([^\s"'>]*)/       $1 . &full_url($2) /ime,
    next if /<\s*object\b/im ;
 
s/(<[^>]*\bsrc\s*=\s*["']?)([^\s"'>]*)/        $1 . &full_url($2) /ime,
s/(<[^>]*\bimagemap\s*=\s*["']?)([^\s"'>]*)/   $1 . &full_url($2) /ime,
    next if /<\s*overlay\b/im ;  # HTML 3.0
 
s/(<[^>]*\bcite\s*=\s*["']?)([^\s"'>]*)/       $1 . &full_url($2) /ime,
    next if /<\s*q\b/im ;
 
s/(<[^>]*\bsrc\s*=\s*["']?)([^\s"'>]*)/        $1 . &full_url($2) /ime,

 view release on metacpan or  search on metacpan

lib/Net/LDAP/SPNEGO.pm  view on Meta::CPAN

342
343
344
345
346
347
348
349
350
351
 
sub _ldap_quote {
    return join '', map { sprintf "\\%02x", $_ } unpack('C*',shift);
}
# with inspiration from
# https://github.com/josephglanville/posix-ldap-overlay/blob/master/lib/SID.pm
 
sub _unpack_sid {
    return unpack 'C Vxx C V*', shift;
}

 view release on metacpan or  search on metacpan

inet_ntop.c  view on Meta::CPAN

97
98
99
100
101
102
103
104
105
106
107
/*
 * Note that int32_t and int16_t need only be "at least" large enough
 * to contain a value of the specified size.  On some systems, like
 * Crays, there is no such thing as an integer variable with 16 bits.
 * Keep this in mind if you think this function should have been coded
 * to use pointer overlays.  All the world's not a VAX.
 */
char tmp[sizeof "ffff:ffff:ffff:ffff:ffff:ffff:255.255.255.255"], *tp;
struct { int base, len; } best, cur;
unsigned int words[NS_IN6ADDRSZ / NS_INT16SZ];
int i;

 view release on metacpan or  search on metacpan

lib/Net/Rovio.pm  view on Meta::CPAN

1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
 
=back
 
=head2 $rovio->getlogo()
 
Gets the 2 possible strings of text currently overlayed on the image, and thier position.
 
GetLogo Returns:
 
=over 4

 view release on metacpan or  search on metacpan

examples/sftp-server-atomic-put.pl  view on Meta::CPAN

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
use Net::SFTP::Server::Constants qw(:all);
 
sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    $self->{overlay} = {};
    $self;
}
 
sub handle_command_open_v3 {
    my ($self, $id, $path, $flags, $attrs) = @_;
    my $writable = $flags & SSH_FXF_WRITE;
    my $perms = $attrs->{mode};
    my ($old_umask, $fh, $target_path);
    if (exists $self->{overlay}{$path}) {
        $path = $self->{overlay}{$path}
    }
    elsif ($writable) {
        if ( (-f $path and $flags & SSH_FXF_TRUNC) or
             (!-e $path and $flags & SSH_FXF_CREAT) )  {
            $target_path = $path;

examples/sftp-server-atomic-put.pl  view on Meta::CPAN

52
53
54
55
56
57
58
59
60
61
62
    if ($writable) {
        Net::SFTP::Server::FS::_set_attrs($path, $attrs)
            or $self->send_status_errno_response($id);
    }
    my $hid = $self->save_file_handler($fh, $flags, $perms, $target_path // $path);
    $self->{overlay}{$target_path} = $path if defined $target_path;
    $self->push_handle_response($id, $hid);
}
 
sub handle_command_close_v3 {
    my ($self, $id, $hid) = @_;

examples/sftp-server-atomic-put.pl  view on Meta::CPAN

64
65
66
67
68
69
70
71
72
73
74
    or return $self->push_status_response($id, SSH_FX_FAILURE, "Bad file handler");
if ($type eq 'dir') {
    closedir($fh) or return $self->push_status_errno_response($id);
}
elsif ($type eq 'file') {
    my $path = delete $self->{overlay}{$target_path};
    close($fh) or return $self->push_status_errno_response($id);
    if (defined $path) {
        rename $path, $target_path or return $self->push_status_errno_response($id);
    }
}

examples/sftp-server-atomic-put.pl  view on Meta::CPAN

82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
    my $method = "handle_command_${action}_v3";
    my $super = Net::SFTP::Server::FS->can($method);
    no strict 'refs';
    *$method = sub {
        my ($self, $id, $target_path) = @_;
        my $path = $self->{overlay}{$target_path} // $target_path;
        $super->($self, $id, $path);
    };
}
 
DESTROY {
    local ($!, $?, $@);
    my $self = shift;
    unlink $_ for (values %{$self->{overlay}});
}
 
 
 
my $server = main->new();

 view release on metacpan or  search on metacpan

clib/src/panda/net/pton.impl  view on Meta::CPAN

31
32
33
34
35
36
37
38
39
40
41
/*
 * Note that int32_t and int16_t need only be "at least" large enough
 * to contain a value of the specified size.  On some systems, like
 * Crays, there is no such thing as an integer variable with 16 bits.
 * Keep this in mind if you think this function should have been coded
 * to use pointer overlays.  All the world's not a VAX.
 */
char tmp[UV__INET6_ADDRSTRLEN], *tp;
struct { int base, len; } best, cur;
unsigned int words[sizeof(struct in6_addr) / sizeof(uint16_t)];
int i;

 view release on metacpan or  search on metacpan

lib/Net/VNC.pm  view on Meta::CPAN

597
598
599
600
601
602
603
604
605
606
607
    && defined $cursor->{x} )
{
 
    #$cursor->{image}->save('cursor.png'); # temporary -- debugging
    $image
        = $image->clone(); # make a duplicate so we can overlay the cursor
    $image->blend(
        $cursor->{image},
        1,                 # don't modify destination alpha
        0, 0, $cursor->{width}, $cursor->{height},    # source dimensions
        $cursor->{x}, $cursor->{y}, $cursor->{width},

 view release on metacpan or  search on metacpan

lib/Net/Z3950/FOLIO/Config.pm  view on Meta::CPAN

29
30
31
32
33
34
35
36
37
38
39
40
my $cfg = _compileConfigFile($cfgbase, undef, MISSING_ERROR);
 
my $isFirst = 1;
while (@extras) {
    my $extra = shift @extras;
    my $overlay = _compileConfigFile($cfgbase, $extra, $isFirst ? MISSING_TENANT : MISSING_FILTER);
    $isFirst = 0;
    _mergeConfig($cfg, $overlay);
}
 
my $gqlfile = $cfg->{graphqlQuery}
    or die "$0: no GraphQL query file defined";

lib/Net/Z3950/FOLIO/Config.pm  view on Meta::CPAN

130
131
132
133
134
135
136
137
138
139
140
    return $val;
}
 
 
sub _mergeConfig {
    my($base, $overlay) = @_;
 
    my %complex_keys = (
        okapi => 1,
        login => 1,
        indexMap => 1,

lib/Net/Z3950/FOLIO/Config.pm  view on Meta::CPAN

144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
            circulation => 1,
        },
    );
 
    foreach my $key (keys (%complex_keys)) {
        if (defined $overlay->{$key}) {
            if (ref $base->{$key} eq 'HASH') {
                _mergeHash($base->{$key}, $overlay->{$key}, $complex_keys{$key});
            } else {
                $base->{$key} = $overlay->{$key};
            }
        }
    }
 
    foreach my $key (sort keys %$overlay) {
        if (!$complex_keys{$key}) {
            $base->{$key} = $overlay->{$key};
        }
    }
}
 
 
sub _mergeHash {
    my($base, $overlay, $keysOfsubStructures) = @_;
 
    foreach my $key (sort keys %$overlay) {
        if (ref $keysOfsubStructures eq 'HASH' && $keysOfsubStructures->{$key}) {
            _mergeHash($base->{$key}, $overlay->{$key}, $keysOfsubStructures->{$key});
        } else {
            $base->{$key} = $overlay->{$key};
        }
    }
}
 
=encoding utf-8

 view release on metacpan or  search on metacpan

SMTP.pm  view on Meta::CPAN

249
250
251
252
253
254
255
256
257
258
=item initialise()
 
Called by B<new()> to initialise the new object.  Initialisation keys 
may be specified as a hash, supplied as a parameter to the new
object, or as a filename or file handle containing a frozen 
B<NetServer::SMTP> object which is users to overlay the object. 
 
Recognized keys are:
 
=over 4

SMTP.pm  view on Meta::CPAN

300
301
302
303
304
305
306
307
308
309
310
    $file->close();
    ($self, @junk) = thaw($frozen);
    $self->{spooledfile} = $fn;
    return $self;
} elsif (scalar(@_) % 2 == 0)  {
    # it's an initialisation hash -- overlay it on $self
    %$self = (@_);
    return $self;
} else {
    croak "Don't know how to initialise from [", join("][", @_), "]\n";
}

 view release on metacpan or  search on metacpan

lib/Number/Phone.pm  view on Meta::CPAN

637
638
639
640
641
642
643
644
645
646
647
=item country
 
The two letter ISO country code for the country in which the call will
terminate.  This is implemented in the superclass and you will only have
to implement your own version for countries where part of the number
range is overlayed with another country.
 
Exception: for the UK, return 'uk', not 'gb'.
 
Specifically, the superclass implementation looks at the class name and
returns the last two-letter code it finds.  eg ...

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

636
637
638
639
640
641
642
643
644
645
646
t/fam/sprites/note_add.png
t/fam/sprites/note_delete.png
t/fam/sprites/note_edit.png
t/fam/sprites/note_error.png
t/fam/sprites/note_go.png
t/fam/sprites/overlays.png
t/fam/sprites/package.png
t/fam/sprites/package_add.png
t/fam/sprites/package_delete.png
t/fam/sprites/package_go.png
t/fam/sprites/package_green.png

 view release on metacpan or  search on metacpan

lib/OCR/OcrSpace.pm  view on Meta::CPAN

317
318
319
320
321
322
323
324
325
326
327
 
    {"ParsedResults":[{"TextOverlay":{"Lines":[{"LineText":"Current","Words":[{"WordText":"Current","Left":11.666666030883789,"Top":59.166664123535156,"Height":14.999999046325684,"Width":54.999996185302734}],"MaxHeight":14.999999046325684,"MinTop":59...
 
=head2 Sample Ouput error
 
    {"OCRExitCode":99,"IsErroredOnProcessing":true,"ErrorMessage":["Parameter name 'attributes' is invalid. Valid parameters: apikey,url,language,isoverlayrequired,base64image,iscreatesearchablepdf,issearchablepdfhidetextlayer,filetype,addressparsing...
 
=cut
 
####################
# internal function

 view release on metacpan or  search on metacpan

lib/OOP.pm  view on Meta::CPAN

303
304
305
306
307
308
309
310
311
312
313
implemented.
 
The above illustrates how to define the various restrictions to a particular 
property.  Keep in mind that this is only the prototype so it does not directly 
deal with data passed into a constructor.  One way of seeing it is as a template 
that is overlayed with the actual data from the constructor.
 
Providing a definition of a property is always optional.  If none is provided then 
various logical defaults apply.  If one does not provide definitions then it will 
be considered that the elements (or properties) in the prototype are not exclusive 
but they are required.  In other words one could add properties dynamically but the 

 view release on metacpan or  search on metacpan

lib/OOPS/TxHash.pm  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
use strict;
 
sub commit
{
        my $self = shift;
        my ($under, $overlay, $whiteout) = @$self;
        for my $key (keys %$whiteout) {
                delete $under->{$key};
        }
        @$under{keys %$overlay} = values %$overlay;
        %$overlay = ();
        %$whiteout = ();
}
 
sub abort
{
        my $self = shift;
        my ($under, $overlay, $whiteout, $count) = @$self;
        %$overlay = ();
        %$whiteout = ();
        $$count = keys %$under;
}
 
sub TIEHASH

lib/OOPS/TxHash.pm  view on Meta::CPAN

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
}
 
sub FETCH
{
        my $self = shift;
        my ($under, $overlay, $whiteout) = @$self;
        my $key = shift;
        return undef            if exists $whiteout->{$key};
        return $overlay->{$key}      if exists $overlay->{$key};
        return $under->{$key};
}
 
sub STORE
{
        my $self = shift;
        my ($under, $overlay, $whiteout, $count) = @$self;
        my ($key, $value) = @_;
        $$count++ if exists $whiteout->{$key}
                or ! (exists $under->{$key} or exists $overlay->{$key});
        $overlay->{$key} = $value;
        delete $whiteout->{$key};
        return $value;
}
 
sub DELETE
{
        my $self = shift;
        my ($under, $overlay, $whiteout, $count) = @$self;
        my $key = shift;
        my $old = $self->FETCH($key);
        return $old if exists $whiteout->{$key};
        $$count-- if exists $under->{$key} or exists $overlay->{$key};
        $whiteout->{$key} = 1;
        delete $overlay->{$key};
        return $old;
}
 
sub CLEAR
{
        my $self = shift;
        my ($under, $overlay, $whiteout, $count) = @$self;
        for my $key (keys %$overlay) {
                $$count-- unless $whiteout->{$key};
        }
        %$overlay = ();
        for my $key (keys %$under) {
                $$count-- unless $whiteout->{$key};
        }
        @$whiteout{keys %$under} = (1) x scalar(keys %$under);
}
 
sub EXISTS
{
        my $self = shift;
        my ($under, $overlay, $whiteout) = @$self;
        my $key = shift;
        return 0 if exists $whiteout->{$key};
        return 1 if exists $overlay->{$key};
        return 1 if exists $under->{$key};
        return 0;
}
 
sub FIRSTKEY
{
        my $self = shift;
        my ($under, $overlay, $whiteout, $count, $doneunder) = @$self;
        keys %$under;
        keys %$overlay;
        $$doneunder = 0;
        return $self->NEXTKEY;
}
 
sub NEXTKEY
{
        my $self = shift;
        my ($under, $overlay, $whiteout, $count, $doneunder) = @$self;
        my ($key, $value);
        unless ($$doneunder) {
                while (($key, $value) = each(%$under)) {
                        next if $whiteout->{$key};
                        return $key;
                }
                $$doneunder = 1;
        }
        while (($key, $value) = each(%$overlay)) {
                next if $whiteout->{$key};
                return $key;
        }
        return ();
}
 
sub SCALAR
{
        my $self = shift;
        my ($under, $overlay, $whiteout, $count) = @$self;
        return $$count;
}
 
1;

 view release on metacpan or  search on metacpan

lib/ORLite.pm  view on Meta::CPAN

930
931
932
933
934
935
936
937
938
939
 
Secondly, it will create one sub-package underneath the namespace of the root
module for each table or view it finds in the database.
 
Once the basic table support has been generated, it will also try to load an
"overlay" module of the same name. Thus, by created a Foo::TableName module on
disk containing "extra" code, you can extend the original and add additional
functionality to it.
 
=head1 OPTIONS

 view release on metacpan or  search on metacpan

lib/OSS/LDAPops.pm  view on Meta::CPAN

88
89
90
91
92
93
94
95
96
97
 
notifypasswordexpiry.pl - a script to send an email to users when their password expires.
 
=item *
 
ppolicy.ldif - an example password policy to use with the ppolicy overlay. 
 
=item *
 
Several other example files, to asisst in setting up *NIX servers to use the directory are also included. 

 view release on metacpan or  search on metacpan

examples/basic.pl  view on Meta::CPAN

352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
    $light->setType(LT_DIRECTIONAL);
    $light->setDirection(-1,-1,-1);
 
    # Perl note: see Ogre::BetaGUI::GUI createOverlay for a similar example
    # (note also createOverlayContainer is specific to Perl Ogre)
    my $overlayMgr = Ogre::OverlayManager->getSingletonPtr;
    my $panel = $overlayMgr->createOverlayContainer("Panel", "PanelName");
    $panel->setMetricsMode(GMM_PIXELS);
    $panel->setPosition(10, 10);
    $panel->setDimensions(100, 100);
 
    my $textArea = $overlayMgr->createTextAreaOverlayElement("TextArea", "TextAreaName");
    $textArea->setMetricsMode(GMM_PIXELS);
    $textArea->setPosition(0, 0);
    $textArea->setDimensions(100, 100);
    $textArea->setCharHeight(16);
    $textArea->setFontName("Arial");
    $textArea->setCaption("Hello, World!");
 
    my $overlay = $overlayMgr->create("AverageFps");
    $overlay->add2D($panel);
    $panel->addChild($textArea);
    $overlay->show();
}
 
sub setupResources {
    my ($self) = @_;

 view release on metacpan or  search on metacpan

Ogre/ExampleFrameListener.pm  view on Meta::CPAN

95
96
97
98
99
100
101
102
103
104
105
 
sub updateStats {
    my ($self) = @_;
 
    # there's a `try' block around this in C++,
    # not sure why - maybe for when these overlay elements
    # don't exist?
 
    my $om = Ogre::OverlayManager->getSingletonPtr();
    my $guiAvg = $om->getOverlayElement("Core/AverageFps");
    my $guiCurr = $om->getOverlayElement("Core/CurrFps");