view release on metacpan or  search on metacpan

.stopwords  view on Meta::CPAN

sysdate
tapeoutid
tcm
tempdir
testdb
thingid
timestamptz
tmp
toctou
tp
truthy

 view release on metacpan or  search on metacpan

lib/DBIx/Class/DeploymentHandler.pm  view on Meta::CPAN

you should do research when donating to a charity, so don't just take my word
on this.  I like Matthew 25: Ministries:
L<http://www.m25m.org/>, but there are a host of other
charities that can do much more good than I will with your money.
(Third party charity info here:
L<http://www.charitynavigator.org/index.cfm?bay=search.summary&orgid=6901>

=head1 METHODS

This is just a "stub" section to make clear
that the bulk of implementation is documented in

 view release on metacpan or  search on metacpan

t/lib/DBICTest.pm  view on Meta::CPAN

        [ 5, 2, "Unicode Chars ™ © • † ∑ α β « » → …", 2015 ],
        [ 6, 3, "Übertreibung älterer Umlaute 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

t/lib/CDTest.pm  view on Meta::CPAN

        [ 25, 17, "Yellow", 2014, 24 ],
        [ 30, 17, "Cyan", 2014, 25 ],
    ]);

    $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

t/lib/DBICTest.pm  view on Meta::CPAN

        [ 4, "Buy Merch!" ],
        [ 5, "Kill Yourself!" ],
    ]);

    $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

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

t/lib/DBICTest.pm  view on Meta::CPAN

        [ 4, "Buy Merch!" ],
        [ 5, "Kill Yourself!" ],
    ]);

    $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

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

lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm  view on Meta::CPAN

    my ($self, $db) = @_;

    my $owners = $self->dbh->selectcol_arrayref($self->_is_2k ? <<"EOF2K" : <<"EOF");
SELECT name
FROM [$db].dbo.sysusers
WHERE uid <> gid
EOF2K
SELECT name
FROM [$db].sys.schemas
EOF

 view release on metacpan or  search on metacpan

t/lib/sqlite.sql  view on Meta::CPAN

--
-- Table: tags
--
CREATE TABLE tags (
  tagid INTEGER PRIMARY KEY NOT NULL,
  cd integer NOT NULL,
  tag varchar(100) NOT NULL
);

--

 view release on metacpan or  search on metacpan

t/lib/CDTest.pm  view on Meta::CPAN

        [ 25, 17, "Yellow", 2014, 24 ],
        [ 30, 17, "Cyan", 2014, 25 ],
    ]);

    $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

ANNOUNCE-FACTOR.pod  view on Meta::CPAN

inheriting and over-writing values as necessary.

It is difficult to create such an inheritance hiearchy
describing each database when the DSN is specified as a string.

=item 2 Config::DBI has rigid expectations of the config file

Software organizations should be entitled to develop configuration
files in any manner they desire. Config::DBI expects the file to have
a certain structure which may not accord with how the organization
wants to describe their database setup

 view release on metacpan or  search on metacpan

lib/DBIx/DR.pm  view on Meta::CPAN

    <% my $foo_bar = $foo + $bar %>

    ..

    % use POSIX;
    % my $gid = POSIX::getgid;


There are two functions available inside perl:

 view release on metacpan or  search on metacpan

lib/DBIx/FileStore/UtilityFunctions.pm  view on Meta::CPAN

#  or 
# my $homedir = get_user_homedir( "username" ); 
############################################
sub get_user_homedir {
    my $user = shift || $ENV{USER};
    my ( $name, $passwd, $uid, $gid, $quota, $comment, $gcos, $homedir, $shell, $expire ) =
        getpwnam( $user );  # get the userid and the homedir
    return $homedir;

}

 view release on metacpan or  search on metacpan

t/00suite.t  view on Meta::CPAN

# SELECT check to verify that one row was inserted

my @results;
eval { @results = $dblbn->execute("t_insert", $data); };

ok($data->{bugid} == 5, "insert, no bind variables");
ok($results[0] == 2
   && $results[1]->[0] == 1
   && $results[1]->[1] == 1, "rowcounts");

t/00suite.t  view on Meta::CPAN

$data->{testnode}->{product_name} = "Perl";
#$data->{product} = [ "foo" ];

eval { $dblbn->execute("t_insert_bind", $data); };

ok($data->{bugid} == 7, "insert, with bind variables");

######################################################################
# multi-column SELECT

eval { $dblbn->execute("t_select_row"); };

t/00suite.t  view on Meta::CPAN

$data->{groupset} = 42;

eval { $dblbn->execute("t_select_row", $data); };

ok($data->{bugid} == 5, "single-row select");

eval { $dblbn->execute("t_select_row2", $data); };

ok(defined $data->{foo}, "single-row select with structure");
ok($data->{foo}->{bugid} == 5, "single-row select with structure");

######################################################################
# multi-row SELECT

eval { $dblbn->execute("t_select_all", $data); };

 view release on metacpan or  search on metacpan

t/lib.pl  view on Meta::CPAN

sub check_log
{
    my ($s, $file) = @_;
    $$s = "";
    return 0 if (! -r $file);
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
    return 0 if ($size <= 0);
    open IN, "<$file";
    while (<IN>) {$$s .= $_};
    close IN;
    unlink $file;

 view release on metacpan or  search on metacpan

t/lib.pl  view on Meta::CPAN

{
    my ($s, $file, $tsize) = @_;
    $$s = "";
    $tsize = 0 if !$tsize;
    return 0 if (! -r $file);
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
    return 0 if ($size <= 0);
    return 0 if ($size <= $tsize);
    open IN, "<$file";
    while (<IN>) {$$s .= $_};
    close IN;

 view release on metacpan or  search on metacpan

t/lib/CDTest.pm  view on Meta::CPAN

        [ 25, 17, "Yellow", 2014, 24 ],
        [ 30, 17, "Cyan", 2014, 25 ],
    ]);

    $schema->populate('Tag', [
        [ qw/tagid cd tag/ ],
        [ 1, 1, "Blue" ],
        [ 2, 2, "Blue" ],
        [ 3, 3, "Blue" ],
        [ 4, 5, "Blue" ],
        [ 5, 2, "Cheesy" ],