view release on metacpan or search on metacpan
t/lib/DBICTest.pm view on Meta::CPAN
[ 5, 2, "We like girls and stuff", 2003 ],
[ 6, 3, "Come Be Depressed With Us", 1998 ],
]);
$schema->populate('Tag', [
[ qw/tagid cd tag/ ],
[ 1, 1, "Blue" ],
[ 2, 2, "Blue" ],
[ 3, 3, "Blue" ],
[ 4, 5, "Blue" ],
[ 5, 2, "Cheesy" ],
view release on metacpan or search on metacpan
share/ext/ext-all-debug.js view on Meta::CPAN
this.el.insertBefore(target);
}
}
this.el.setStyle("z-index", this.zIndex || parseInt(target.getStyle("z-index"), 10) - 1);
if (Ext.isIE) {
this.el.dom.style.filter = "progid:DXImageTransform.Microsoft.alpha(opacity=50) progid:DXImageTransform.Microsoft.Blur(pixelradius=" + (this.offset) + ")";
}
this.realign(
target.getLeft(true),
target.getTop(true),
target.getWidth(),
share/ext/ext-all-debug.js view on Meta::CPAN
gstyle = 'width:' + this.getTotalWidth() + ';',
cfg = this.cm.config[colIndex],
groupRenderer = cfg.groupRenderer || cfg.renderer,
prefix = this.showGroupName ? (cfg.groupName || cfg.header)+': ' : '',
groups = [],
curGroup, i, len, gid;
for(i = 0, len = rs.length; i < len; i++){
var rowIndex = startRow + i,
r = rs[i],
gvalue = r.data[groupField];
g = this.getGroup(gvalue, r, groupRenderer, rowIndex, colIndex, ds);
if(!curGroup || curGroup.group != g){
gid = this.constructId(gvalue, groupField, colIndex);
this.state[gid] = !(Ext.isDefined(this.state[gid]) ? !this.state[gid] : this.startCollapsed);
curGroup = {
group: g,
gvalue: gvalue,
text: prefix + g,
groupId: gid,
startRow: rowIndex,
rs: [r],
cls: this.state[gid] ? '' : 'x-grid-group-collapsed',
style: gstyle
};
groups.push(curGroup);
}else{
curGroup.rs.push(r);
}
r._groupId = gid;
}
var buf = [];
for(i = 0, len = groups.length; i < len; i++){
g = groups[i];
view release on metacpan or search on metacpan
lib/Catalyst/Helper/Controller/DBIC/API/REST.pm view on Meta::CPAN
corresponding class, e.g.,
list_search_exposes => [
qw/cdid artist title year/,
{ 'cd_to_producer' => [qw/cd producer/] },
{ 'tags' => [qw/tagid cd tag/] },
{ 'tracks' => [qw/trackid cd position title last_updated_on/] },
], # columns that can be searched on via list
=head1 CONTROLLERBASE
view release on metacpan or search on metacpan
lib/Catalyst/Helper/InitScript/FreeBSD.pm view on Meta::CPAN
% ./script/yourapp_create.pl InitScript::FreeBSD -- --help
usage: ./script/yourapp_create.pl
-? -help display this help and exits.
-user The real uid of fastcgi process. [default is USERNAME]
-group The real gid of fastcgi process. [default is GROUP]
-p -pidfile specify filename for pid file.
[default is /var/run/yourapp.pid]
-l -listen Socket path to listen on can be HOST:PORT, :PORT or a filesystem path.
[default is /var/run/yourapp.sockets]
-n -nproc specify number of processes to keep to serve requests.
lib/Catalyst/Helper/InitScript/FreeBSD.pm view on Meta::CPAN
# vars
my $vars = {
app => lc($helper->{app}) || die,
base => $helper->{base},
user => getpwuid($UID) || "",
group => getgrgid($GID) || "",
nproc => 4,
use_socket => 1,
};
$vars->{pidfile} = "/var/run/$vars->{app}.pid";
$vars->{listen} = "/var/run/$vars->{app}.sockets";
lib/Catalyst/Helper/InitScript/FreeBSD.pm view on Meta::CPAN
print <<USAGE;
usage: $0
-? -help display this help and exits.
-user The real uid of fastcgi process. [default is $vars->{user}]
-group The real gid of fastcgi process. [default is $vars->{group}]
-p -pidfile specify filename for pid file.
[default is $vars->{pidfile}]
-l -listen Socket path to listen on can be HOST:PORT, :PORT or a filesystem path.
[default is $vars->{listen}]
-n -nproc specify number of processes to keep to serve requests.
view release on metacpan or search on metacpan
lib/Catalyst/Manual/Deployment/Apache/FastCGI.pod view on Meta::CPAN
The FastCgiExternalServer directive tells Apache that when serving
/tmp/myapp to use the FastCGI application listening on the socket
/tmp/mapp.socket. Note that /tmp/myapp.fcgi B<MUST NOT> exist --
it's a virtual file name. With some versions of C<mod_fastcgi> or
C<mod_fcgid>, you can use any name you like, but some require that the
virtual filename end in C<.fcgi>.
It's likely that Apache is not configured to serve files in /tmp, so the
Alias directive maps the url path /myapp/ to the (virtual) file that runs the
FastCGI application. The trailing slashes are important as their use will
view release on metacpan or search on metacpan
lib/Catalyst/Helper/Model/NetBlogger.pm view on Meta::CPAN
package Catalyst::Helper::Model::NetBlogger;
use strict;
use warnings;
sub mk_compclass {
my ($self, $helper, $engine, $proxy, $blogid, $username, $password, $appkey, $uri) = @_;
my $file = $helper->{file};
$helper->{'engine'} = $engine || die 'No engine specified!';
$helper->{'proxy'} = $proxy || die 'No proxy specified!';
$helper->{'blogid'} = $blogid || die 'No blogid specified!';
$helper->{'username'} = $username;
$helper->{'password'} = $password;
$helper->{'appkey'} = $appkey;
$helper->{'uri'} = $uri;
lib/Catalyst/Helper/Model/NetBlogger.pm view on Meta::CPAN
use base 'Catalyst::Model::NetBlogger';
__PACKAGE__->config(
engine => '[% engine %]',
proxy => '[% proxy %]',
blogid => '[% blogid %]',
username => '[% username %]',
password => '[% password %]',
appkey => '[% appkey %]',
uri => '[% uri %]'
);
lib/Catalyst/Helper/Model/NetBlogger.pm view on Meta::CPAN
Catalyst::Helper::Model::NetBlogger - Helper for Net::Blogger Models
=head1 SYNOPSIS
script/create.pl model <newclass> NetBlogger <engine> <proxy> <blogid> [<username> <password> <appkey> <uri>]
script/create.pl model Blog NetBlogger movabletype http://example.com/mt-xmlrpc.cgi 123 myuser mypass
=head1 DESCRIPTION
A Helper for creating models to post and retrieve blog entries.
view release on metacpan or search on metacpan
lib/Catalyst/Model/PayPal/IPN.pm view on Meta::CPAN
$c->stash->{subtypes} = [
$c->model('FTMAdminDB::FTMTariffs')->search(
{
objectname => 'FTM_SUB_TARIFFS',
objectitem => 'TARIFFTYPENO',
lovlangid => $langid,
},
)
];
for my $tariff ( @{ $c->stash->{subtypes} } ) {
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/Authentication/Internals.pod view on Meta::CPAN
=head2 USER OBJECT
The user object is an important piece of your store module. It will be the
part of the system that the application developer will interact with most. As
such, the API for the user object is very rigid. All user objects B<MUST>
inherit from
L<Catalyst::Authentication::User|Catalyst::Authentication::User>.
=head3 USER METHODS
view release on metacpan or search on metacpan
lib/Catalyst/Helper/Model/CRUD.pm view on Meta::CPAN
</table>
<?cs include:"template/footer.cs" ?>
__ja_po__
msgid "New"
msgstr "æ–°è¦"
msgid "Detail"
msgstr "詳細"
msgid "Edit"
msgstr "編集"
msgid "Delete"
msgstr "削除"
msgid "List"
msgstr "一覧"
msgid "Add"
msgstr "è¿½åŠ "
msgid "Update"
msgstr "æ›´æ–°"
msgid "Search"
msgstr "検索"
msgid "Login"
msgstr "ãƒã‚°ã‚¤ãƒ³"
msgid "Logout"
msgstr "ãƒã‚°ã‚¢ã‚¦ãƒˆ"
[% FOREACH keyword = keywords -%]
msgid "[% keyword.name -%]"
msgstr "[% keyword.desc_ja -%]"
[% END -%]
__mini_ja_po__
[% FOREACH keyword = keywords -%]
msgid "[% keyword.name -%]"
msgstr "[% keyword.desc_ja -%]"
[% END -%]
__en_po__
msgid "New"
msgstr ""
msgid "Detail"
msgstr ""
msgid "Edit"
msgstr ""
msgid "Delete"
msgstr ""
msgid "List"
msgstr ""
msgid "Add"
msgstr ""
msgid "Update"
msgstr ""
msgid "Search"
msgstr ""
msgid "Login"
msgstr ""
msgid "Logout"
msgstr ""
[% FOREACH keyword = keywords -%]
msgid "[% keyword.name -%]"
msgstr "[% keyword.desc_en -%]"
[% END -%]
__mini_en_po__
[% FOREACH keyword = keywords -%]
msgid "[% keyword.name -%]"
msgstr "[% keyword.desc_en -%]"
[% END -%]
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/I18N/PathPrefix.pm view on Meta::CPAN
=over
=item name
The localized (translated) name of the language. (The actual msgid used in C<<
$c->loc() >> is the English name of the language, returned by
L<I18N::LangTags::List/name>.)
=item url
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/I18N/PathPrefixGeoIP.pm view on Meta::CPAN
=over
=item name
The localized (translated) name of the language. (The actual msgid used in C<<
$c->loc() >> is the English name of the language, returned by
L<I18N::LangTags::List/name>.)
=item url
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/I18N.pm view on Meta::CPAN
Supports mo/po files and Maketext classes under your application's I18N
namespace.
# MyApp/I18N/de.po
msgid "Hello Catalyst"
msgstr "Hallo Katalysator"
# MyApp/I18N/i_default.po
msgid "messages.hello.catalyst"
msgstr "Hello Catalyst - fallback translation"
# MyApp/I18N/de.pm
package MyApp::I18N::de;
use base 'MyApp::I18N';
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/MessageStack.pm view on Meta::CPAN
You can also pass in a L<Message::Stack::Message>
$c->message(
Message::Stack::Message->new(
scope => 'some_scope', level => 'info',
msgid => 'some msg id'
)
);
=head2 has_messages
view release on metacpan or search on metacpan
lib/CatalystX/CRUD/YUI/TT/static/js/livegrid/build/livegrid-all-debug.js view on Meta::CPAN
},
/**
* Unbinds the toolbar.
*
* @param {Ext.grid.GridView|Ext.gid.GridPanel} view Either The view to unbind
* or the grid
*/
unbind : function(view)
{
var st;
view release on metacpan or search on metacpan
t/lib/TestApp/Controller/Root.pm view on Meta::CPAN
my $results = $self->verify($c);
my $output = "success: " . $results->success . "\n";
my $stack = $self->messages($c);
foreach my $message ( @{ $stack->messages } ) {
$output .= sprintf("%s: %s\n",
$message->subject, $message->msgid);
}
$c->res->body($output);
}
sub verify_me_and_die : Local {
view release on metacpan or search on metacpan
lib/CatalystX/Crudite/Util/Random.pm view on Meta::CPAN
frighteningly
frightens
frightful
frightfully
frightfulness
frigid
Frigidaire
frill
frills
fringe
fringed
Frisbee
lib/CatalystX/Crudite/Util/Random.pm view on Meta::CPAN
Gibbons
Gibbs
Gibby
Gibraltar
Gibson
giddiness
Giddings
giddy
Gideon
Gifford
gift
gifted
gifts
lib/CatalystX/Crudite/Util/Random.pm view on Meta::CPAN
rightly
rightmost
rightness
rights
rightward
rigid
rigidity
rigidly
rigor
rigorous
rigorously
rigors
rigs
lib/CatalystX/Crudite/Util/Random.pm view on Meta::CPAN
turbans
turbulence
turbulent
turbulently
turf
turgid
turgidly
Turin
Turing
turkey
turkeys
Turkish
view release on metacpan or search on metacpan
t/lib/MyApp/Data/Manager.pm view on Meta::CPAN
sub errors {
my $self = shift;
my %errors;
for my $msg ( @{ $self->messages->messages || [] } ) {
$errors{ $msg->subject } = 'invalid'
if $msg->msgid =~ /invalid/g;
$errors{ $msg->subject } = 'missing'
if $msg->msgid =~ /missing/g;
}
return unless scalar keys %errors;
return \%errors;
}
view release on metacpan or search on metacpan
root/static/js/yui/build/assets/skins/sam/colorpicker.css view on Meta::CPAN
Copyright (c) 2008, Yahoo! Inc. All rights reserved.
Code licensed under the BSD License:
http://developer.yahoo.net/yui/license.txt
version: 2.5.0
*/
.yui-picker-panel{background:#e3e3e3;border-color:#888;}.yui-picker-panel .hd{background-color:#ccc;font-size:100%;line-height:100%;border:1px solid #e3e3e3;font-weight:bold;overflow:hidden;padding:6px;color:#000;}.yui-picker-panel .bd{background:#e8...
view release on metacpan or search on metacpan
t/lib/TestAppI18N/features/simple.feature/lib/TestApp/I18N/es.po view on Meta::CPAN
msgid "bummer"
msgstr "chungo"
view release on metacpan or search on metacpan
lib/CatalystX/I18N/Model/Maketext.pm view on Meta::CPAN
=head1 DESCRIPTION
This model glues a L<Locale::Maketext> class
(eg. L<CatalystX::I18N::Maketext>) into you Catalyst application.
The method C<fail_with> will be called for each missing msgid if present
in your model class.
package MyApp::Model::Maketext;
use parent qw/CatalystX::I18N::Model::Maketext/;
sub fail_with {
my ($self,$c,$language_handle,$msgid,$params) = @_;
# Do somenthing clever
return $string;
}
See L<Catalyst::Helper::Model::Maketext> for gerating an Maketext model from
view release on metacpan or search on metacpan
lib/Catmandu/Exporter/BagIt.pm view on Meta::CPAN
has ignore_existing => (is => 'ro' , default => sub { 0 });
has overwrite => (is => 'ro' , default => sub { 0 });
sub _mtime {
my $file = $_[0];
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
return $mtime;
}
sub add {
my ($self, $data) = @_;
view release on metacpan or search on metacpan
lib/Catmandu/Fix/Condition/file_test.pm view on Meta::CPAN
List of file tests, all in one string.
Possible file tests (taken from <http://perldoc.perl.org/functions/-X.html>):
R File is readable by real uid/gid.
W File is writable by real uid/gid.
X File is executable by real uid/gid.
O File is owned by real uid.
e File exists.
lib/Catmandu/Fix/Condition/file_test.pm view on Meta::CPAN
t Filehandle is opened to a tty.
u File has setuid bit set.
g File has setgid bit set.
k File has sticky bit set.
T File is an ASCII or UTF-8 text file (heuristic guess).
view release on metacpan or search on metacpan
msgid "mail_subject"
msgstr "Summary of your current loans at the library"
msgid "mail_greeting"
msgstr "Dear %1"
msgid "mail_body"
msgstr "%quant(%1,book is,books are) overdue now"
view release on metacpan or search on metacpan
},
"version" : "0.06",
"x_contributors" : [
"Christian Pietsch <christian.pietsch@uni-bielefeld.de>",
"Emmanuel Di Pretoro <edipretoro@gmail.com>",
"Fedora Application User <fedora@gide.ugent.be>",
"Nicolas Steenlant <nicolas.steenlant@ugent.be>",
"Patrick Hochstenbach <Patrick.Hochstenbach@UGent.be>",
"wouterw <wouter.willaert@gmail.com>"
],
"x_serialization_backend" : "Cpanel::JSON::XS version 4.08"
view release on metacpan or search on metacpan
lib/CellFunc/File/stat_row.pm view on Meta::CPAN
"dev", # 0
"ino", # 1
"mode", # 2
"nlink", # 3
"uid", # 4
"gid", # 5
"rdev", # 6
"size", # 7
"atime", # 8
"mtime", # 9
"ctime", # 10
lib/CellFunc/File/stat_row.pm view on Meta::CPAN
"number", # 0 "dev",
"number", # 1 "ino",
"", # 2 "mode",
"number", # 3 "nlink",
"number", # 4 "uid",
"number", # 5 "gid",
"number", # 6 "rdev",
"filesize", # 7 "size",
"iso8601_datetime", # 8 "atime",
"iso8601_datetime", # 9 "mtime",
"iso8601_datetime", # 10 "ctime",
view release on metacpan or search on metacpan
lib/CfgTie/TieGroup.pm view on Meta::CPAN
if (!defined $id) {return 0;}
if (exists $CfgTie::TieGroup_rec'by_id{$id}) {return 1;}
# Get the information from the system and store it for later
my @x = getgrgid $id;
if (! scalar @x) {return 0;}
tie %{$CfgTie::TieGroup_rec'by_name{$x[0]}}, 'CfgTie::TieGroup_rec',@x;
$CfgTie::TieGroup_rec'by_id{$id} = $CfgTie::TieGroup_rec'by_name{$x[0]};
view release on metacpan or search on metacpan
lib/Earabic.pm view on Meta::CPAN
leave out the chomp, in which case $shell would have a newline on the end of it.
open(PASSWD, "/etc/passwd");
while (<PASSWD>) {
chomp; # remove trailing newline.
($login, $passwd, $uid, $gid, $gcos, $home, $shell) =
Earabic::split(/:/);
...
}
Here's how process each word of each line of each file of input to create a
view release on metacpan or search on metacpan
lib/Big5HKSCS.pm view on Meta::CPAN
-O Ebig5hkscs::O File or directory is owned by this real user
-p Ebig5hkscs::p Entry is a named pipe (a "fifo")
-b Ebig5hkscs::b Entry is a block-special file (like a mountable disk)
-c Ebig5hkscs::c Entry is a character-special file (like an I/O device)
-u Ebig5hkscs::u File or directory is setuid
-g Ebig5hkscs::g File or directory is setgid
-k Ebig5hkscs::k File or directory has the sticky bit set
--------------------------------------------------------------------------
-w only inspects the read-only file attribute (FILE_ATTRIBUTE_READONLY), which
determines whether the directory can be deleted, not whether it can be written
view release on metacpan or search on metacpan
lib/Big5Plus.pm view on Meta::CPAN
-O Ebig5plus::O File or directory is owned by this real user
-p Ebig5plus::p Entry is a named pipe (a "fifo")
-b Ebig5plus::b Entry is a block-special file (like a mountable disk)
-c Ebig5plus::c Entry is a character-special file (like an I/O device)
-u Ebig5plus::u File or directory is setuid
-g Ebig5plus::g File or directory is setgid
-k Ebig5plus::k File or directory has the sticky bit set
--------------------------------------------------------------------------
-w only inspects the read-only file attribute (FILE_ATTRIBUTE_READONLY), which
determines whether the directory can be deleted, not whether it can be written
view release on metacpan or search on metacpan
lib/Ecyrillic.pm view on Meta::CPAN
leave out the chomp, in which case $shell would have a newline on the end of it.
open(PASSWD, "/etc/passwd");
while (<PASSWD>) {
chomp; # remove trailing newline.
($login, $passwd, $uid, $gid, $gcos, $home, $shell) =
Ecyrillic::split(/:/);
...
}
Here's how process each word of each line of each file of input to create a