view release on metacpan or  search on metacpan

src/Changelog  view on Meta::CPAN

- added ABI tests with native compiler using libtcc (James Lyon)
- added CMake build system with support for cross-compilation (James Lyon)
- improved variable length array support (James Lyon)
- add the possibility to use noname functions by ordinal (YX Hao)
- add a install-strip target to install tcc (Thomas Preud'homme)
- add runtime selection of float ABI on ARM (Thomas Preud'homme)
- add shared lib support on x86-64 (Michael Matz)

Platforms:
- support Debian GNU/kfreeBSD 64bit userspace (Thomas Preud'homme)
- fix GNU/Hurd interpreter path (Thomas Preud'homme)

 view release on metacpan or  search on metacpan

lib/Alien/UnicornEngine.pm  view on Meta::CPAN

Vikas N Kumar <vikas@cpan.org>

=head1 REPOSITORY

L<https://github.com/selectiveintellect/p5-alien-unicorn.git>

=head1 COPYRIGHT

Copyright (C) 2016. Selective Intellect LLC <github@selectiveintellect.com>. All Rights Reserved.

=head1 LICENSE

This is free software under the MIT license.

 view release on metacpan or  search on metacpan

inc/inc_Module-Build/Module/Build.pm  view on Meta::CPAN

=over 4

=item installdirs

The default destinations for these installable things come from
entries in your system's C<Config.pm>.  You can select from three
different sets of default locations by setting the C<installdirs>
parameter as follows:

                          'installdirs' set to:
                   core          site                vendor

inc/inc_Module-Build/Module/Build.pm  view on Meta::CPAN

C<MakeMaker> you do C<use ExtUtils::MakeMaker>, but the object created in
C<WriteMakefile()> is actually blessed into a package name that's
created on the fly, so you can't simply subclass
C<ExtUtils::MakeMaker>.  There is a workaround C<MY> package that lets
you override certain C<MakeMaker> methods, but only certain explicitly
preselected (by C<MakeMaker>) methods can be overridden.  Also, the method
of customization is very crude: you have to modify a string containing
the Makefile text for the particular target.  Since these strings
aren't documented, and I<can't> be documented (they take on different
values depending on the platform, version of perl, version of
C<MakeMaker>, etc.), you have no guarantee that your modifications will

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

share/docs/extjs/resources/themes/images/default/form/trigger.gif
share/docs/extjs/resources/themes/images/default/grid/arrow-left-white.gif
share/docs/extjs/resources/themes/images/default/grid/arrow-right-white.gif
share/docs/extjs/resources/themes/images/default/grid/cell-special-bg.gif
share/docs/extjs/resources/themes/images/default/grid/cell-special-bg.png
share/docs/extjs/resources/themes/images/default/grid/cell-special-selected-bg.gif
share/docs/extjs/resources/themes/images/default/grid/cell-special-selected-bg.png
share/docs/extjs/resources/themes/images/default/grid/checked.gif
share/docs/extjs/resources/themes/images/default/grid/col-move-bottom.gif
share/docs/extjs/resources/themes/images/default/grid/col-move-top.gif
share/docs/extjs/resources/themes/images/default/grid/column-header-bg.gif
share/docs/extjs/resources/themes/images/default/grid/column-header-bg.png

MANIFEST  view on Meta::CPAN

share/docs/extjs/resources/themes/images/default/grid/page-next.gif
share/docs/extjs/resources/themes/images/default/grid/page-prev-disabled.gif
share/docs/extjs/resources/themes/images/default/grid/page-prev.gif
share/docs/extjs/resources/themes/images/default/grid/pick-button.gif
share/docs/extjs/resources/themes/images/default/grid/property-cell-bg.gif
share/docs/extjs/resources/themes/images/default/grid/property-cell-selected-bg.gif
share/docs/extjs/resources/themes/images/default/grid/refresh-disabled.gif
share/docs/extjs/resources/themes/images/default/grid/refresh.gif
share/docs/extjs/resources/themes/images/default/grid/row-check-sprite.gif
share/docs/extjs/resources/themes/images/default/grid/row-expand-sprite.gif
share/docs/extjs/resources/themes/images/default/grid/row-over.gif

MANIFEST  view on Meta::CPAN

share/examples/image-organizer/images/icons/box_upload.png
share/examples/image-organizer/images/icons/cancel.png
share/examples/image-organizer/images/icons/folder_add.png
share/examples/image-organizer/images/icons/folder_add_sm.png
share/examples/image-organizer/images/icons/tag_blue_add.png
share/examples/image-organizer/images/selected.gif
share/examples/image-organizer/images/thumbs/kids_hug.jpg
share/examples/image-organizer/images/thumbs/kids_hug2.jpg
share/examples/image-organizer/images/thumbs/sara_pink.jpg
share/examples/image-organizer/images/thumbs/sara_pumpkin.jpg
share/examples/image-organizer/images/thumbs/sara_smile.jpg

MANIFEST  view on Meta::CPAN

share/examples/message-box/images/comment.gif
share/examples/message-box/images/download.gif
share/examples/message-box/images/warning.gif
share/examples/message-box/msg-box.html
share/examples/message-box/msg-box.js
share/examples/multiselect/multiselect-demo.html
share/examples/multiselect/multiselect-demo.js
share/examples/organizer/organizer.css
share/examples/organizer/organizer.html
share/examples/organizer/organizer.js
share/examples/panel/BubblePanel.js
share/examples/panel/bubble-panel.html

MANIFEST  view on Meta::CPAN

share/examples/shared/screens/form-custom.gif
share/examples/shared/screens/form-dynamic.gif
share/examples/shared/screens/form-file-upload.gif
share/examples/shared/screens/form-grid-binding-access.gif
share/examples/shared/screens/form-grid-binding.gif
share/examples/shared/screens/form-multiselect.gif
share/examples/shared/screens/form-slider.png
share/examples/shared/screens/form-spinner.gif
share/examples/shared/screens/form-vbox.gif
share/examples/shared/screens/form-xml.gif
share/examples/shared/screens/forum.gif

MANIFEST  view on Meta::CPAN

share/examples/view/images/phones/Sony-Ericsson-C510a-Cyber-shot.png
share/examples/view/images/phones/Sony-Ericsson-W580i-Walkman.png
share/examples/view/images/phones/Sony-Ericsson-W705a-Walkman.png
share/examples/view/images/phones/Sony-Ericsson-XPERIA-X1.png
share/examples/view/images/phones/T-Mobile-Sidekick-3-Smartphone-64-MB.png
share/examples/view/images/selected.gif
share/examples/view/images/slider-thumb.png
share/examples/view/images/thumbs/dance_fever.jpg
share/examples/view/images/thumbs/gangster_zack.jpg
share/examples/view/images/thumbs/kids_hug.jpg
share/examples/view/images/thumbs/kids_hug2.jpg

 view release on metacpan or  search on metacpan

share/vendor/css/bootstrap-responsive.css  view on Meta::CPAN

  }
  .input-large,
  .input-xlarge,
  .input-xxlarge,
  input[class*="span"],
  select[class*="span"],
  textarea[class*="span"],
  .uneditable-input {
    display: block;
    width: 100%;
    min-height: 30px;

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

xgboost/cub/cub/agent/agent_reduce.cuh
xgboost/cub/cub/agent/agent_reduce_by_key.cuh
xgboost/cub/cub/agent/agent_rle.cuh
xgboost/cub/cub/agent/agent_scan.cuh
xgboost/cub/cub/agent/agent_segment_fixup.cuh
xgboost/cub/cub/agent/agent_select_if.cuh
xgboost/cub/cub/agent/agent_spmv_csrt.cuh
xgboost/cub/cub/agent/agent_spmv_orig.cuh
xgboost/cub/cub/agent/agent_spmv_row_based.cuh
xgboost/cub/cub/agent/single_pass_scan_operators.cuh
xgboost/cub/cub/block/block_adjacent_difference.cuh

MANIFEST  view on Meta::CPAN

xgboost/cub/cub/device/device_reduce.cuh
xgboost/cub/cub/device/device_run_length_encode.cuh
xgboost/cub/cub/device/device_scan.cuh
xgboost/cub/cub/device/device_segmented_radix_sort.cuh
xgboost/cub/cub/device/device_segmented_reduce.cuh
xgboost/cub/cub/device/device_select.cuh
xgboost/cub/cub/device/device_spmv.cuh
xgboost/cub/cub/device/dispatch/dispatch_histogram.cuh
xgboost/cub/cub/device/dispatch/dispatch_radix_sort.cuh
xgboost/cub/cub/device/dispatch/dispatch_reduce.cuh
xgboost/cub/cub/device/dispatch/dispatch_reduce_by_key.cuh
xgboost/cub/cub/device/dispatch/dispatch_rle.cuh
xgboost/cub/cub/device/dispatch/dispatch_scan.cuh
xgboost/cub/cub/device/dispatch/dispatch_select_if.cuh
xgboost/cub/cub/device/dispatch/dispatch_spmv_csrt.cuh
xgboost/cub/cub/device/dispatch/dispatch_spmv_orig.cuh
xgboost/cub/cub/device/dispatch/dispatch_spmv_row_based.cuh
xgboost/cub/cub/grid/grid_barrier.cuh
xgboost/cub/cub/grid/grid_even_share.cuh

MANIFEST  view on Meta::CPAN

xgboost/cub/examples/device/example_device_partition_flagged.cu
xgboost/cub/examples/device/example_device_partition_if.cu
xgboost/cub/examples/device/example_device_radix_sort.cu
xgboost/cub/examples/device/example_device_reduce.cu
xgboost/cub/examples/device/example_device_scan.cu
xgboost/cub/examples/device/example_device_select_flagged.cu
xgboost/cub/examples/device/example_device_select_if.cu
xgboost/cub/examples/device/example_device_select_unique.cu
xgboost/cub/examples/device/example_device_sort_find_non_trivial_runs.cu
xgboost/cub/experimental/Makefile
xgboost/cub/experimental/defunct/example_coo_spmv.cu
xgboost/cub/experimental/defunct/test_device_seg_reduce.cu
xgboost/cub/experimental/histogram/histogram_cub.h

MANIFEST  view on Meta::CPAN

xgboost/cub/test/test_device_radix_sort.cu
xgboost/cub/test/test_device_reduce.cu
xgboost/cub/test/test_device_reduce_by_key.cu
xgboost/cub/test/test_device_run_length_encode.cu
xgboost/cub/test/test_device_scan.cu
xgboost/cub/test/test_device_select_if.cu
xgboost/cub/test/test_device_select_unique.cu
xgboost/cub/test/test_grid_barrier.cu
xgboost/cub/test/test_iterator.cu
xgboost/cub/test/test_util.h
xgboost/cub/test/test_warp_reduce.cu
xgboost/cub/test/test_warp_scan.cu

 view release on metacpan or  search on metacpan

tidyall.ini  view on Meta::CPAN

[PerlTidy]
select = **/*.{pl,pm,t}
argv = --profile=perltidy.rc -nst

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

include/boost/config/compiler/vacpp.hpp
include/boost/config/compiler/visualc.hpp
include/boost/config/compiler/xlcpp.hpp
include/boost/config/compiler/xlcpp_zos.hpp
include/boost/config/detail/posix_features.hpp
include/boost/config/detail/select_compiler_config.hpp
include/boost/config/detail/select_platform_config.hpp
include/boost/config/detail/select_stdlib_config.hpp
include/boost/config/detail/suffix.hpp
include/boost/config/header_deprecated.hpp
include/boost/config/helper_macros.hpp
include/boost/config/no_tr1/cmath.hpp
include/boost/config/no_tr1/complex.hpp

MANIFEST  view on Meta::CPAN

include/boost/preprocessor/repetition/enum_trailing_binary_params.hpp
include/boost/preprocessor/repetition/enum_trailing_params.hpp
include/boost/preprocessor/repetition/for.hpp
include/boost/preprocessor/repetition/repeat.hpp
include/boost/preprocessor/repetition/repeat_from_to.hpp
include/boost/preprocessor/selection.hpp
include/boost/preprocessor/selection/max.hpp
include/boost/preprocessor/selection/min.hpp
include/boost/preprocessor/seq.hpp
include/boost/preprocessor/seq/cat.hpp
include/boost/preprocessor/seq/detail/binary_transform.hpp
include/boost/preprocessor/seq/detail/is_empty.hpp
include/boost/preprocessor/seq/detail/split.hpp

 view release on metacpan or  search on metacpan

libcares/.travis.yml  view on Meta::CPAN

             export TEST_FILTER="--gtest_filter=-*Container*"
         fi
    - |
         if [ "$BUILD_TYPE" = "ios" ]; then
             export CONFIG_OPTS=--host=arm-apple-darwin10
             export DEVPATH=`xcode-select -print-path`/Platforms/iPhoneOS.platform/Developer
             export IOSFLAGS="-isysroot $DEVPATH/SDKs/iPhoneOS.sdk -arch armv7 -miphoneos-version-min=8.0.0"
             export CFLAGS=$IOSFLAGS
             export CXXFLAGS=$IOSFLAGS
             export LDFLAGS=$IOSFLAGS
         fi

 view release on metacpan or  search on metacpan

src/catch.hpp  view on Meta::CPAN

#endif // __OBJC__

} // namespace Catch

//////////////////////////////////////////////////////
// Separate std-lib types stringification, so it can be selectively enabled
// This means that we do not bring in

#if defined(CATCH_CONFIG_ENABLE_ALL_STRINGMAKERS)
#  define CATCH_CONFIG_ENABLE_PAIR_STRINGMAKER
#  define CATCH_CONFIG_ENABLE_TUPLE_STRINGMAKER

src/catch.hpp  view on Meta::CPAN

    };
}
#endif // CATCH_CONFIG_ENABLE_TUPLE_STRINGMAKER

namespace Catch {
    struct not_this_one {}; // Tag type for detecting which begin/ end are being selected

    // Import begin/ end from std here so they are considered alongside the fallback (...) overloads in this namespace
    using std::begin;
    using std::end;

src/catch.hpp  view on Meta::CPAN

            assert( index < m_size );
            return m_generator->get( index );
        }
    };

    std::vector<size_t> randomiseIndices( size_t selectionSize, size_t sourceSize );

    template<typename T>
    class GeneratorRandomiser : public IGenerator<T> {
        Generator<T> m_baseGenerator;

src/catch.hpp  view on Meta::CPAN

        OcMethod( Class cls, SEL sel ) : m_cls( cls ), m_sel( sel ) {}

        virtual void invoke() const {
            id obj = [[m_cls alloc] init];

            performOptionalSelector( obj, @selector(setUp)  );
            performOptionalSelector( obj, m_sel );
            performOptionalSelector( obj, @selector(tearDown)  );

            arcSafeRelease( obj );
        }
    private:
        virtual ~OcMethod() {}

src/catch.hpp  view on Meta::CPAN

            Class cls = classes[c];
            {
                u_int count;
                Method* methods = class_copyMethodList( cls, &count );
                for( u_int m = 0; m < count ; m++ ) {
                    SEL selector = method_getName(methods[m]);
                    std::string methodName = sel_getName(selector);
                    if( startsWith( methodName, "Catch_TestCase_" ) ) {
                        std::string testCaseName = methodName.substr( 15 );
                        std::string name = Detail::getAnnotation( cls, "Name", testCaseName );
                        std::string desc = Detail::getAnnotation( cls, "Description", testCaseName );
                        const char* className = class_getName( cls );

                        getMutableRegistryHub().registerTest( makeTestCase( new OcMethod( cls, selector ), className, NameAndTags( name.c_str(), desc.c_str() ), SourceLineInfo("",0) ) );
                        noTestMethods++;
                    }
                }
                free(methods);
            }

src/catch.hpp  view on Meta::CPAN

namespace Generators {

    GeneratorBase::~GeneratorBase() {}

    std::vector<size_t> randomiseIndices( size_t selectionSize, size_t sourceSize ) {

        assert( selectionSize <= sourceSize );
        std::vector<size_t> indices;
        indices.reserve( selectionSize );
        std::uniform_int_distribution<size_t> uid( 0, sourceSize-1 );

        std::set<size_t> seen;
        // !TBD: improve this algorithm
        while( indices.size() < selectionSize ) {
            auto index = uid( rng() );
            if( seen.insert( index ).second )
                indices.push_back( index );
        }
        return indices;

 view release on metacpan or  search on metacpan

patch/flex-2.6.4.diff  view on Meta::CPAN

-  test -z "$as_dir" && as_dir=.
-    for ac_prog in sed gsed; do
-    for ac_exec_ext in '' $ac_executable_extensions; do
-      ac_path_SED="$as_dir/$ac_prog$ac_exec_ext"
-      as_fn_executable_p "$ac_path_SED" || continue
-# Check for GNU ac_path_SED and select it if it is found.
-  # Check for GNU $ac_path_SED
-case `"$ac_path_SED" --version 2>&1` in
-*GNU*)
-  ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;;
-*)

patch/flex-2.6.4.diff  view on Meta::CPAN

-  test -z "$as_dir" && as_dir=.
-    for ac_prog in fgrep; do
-    for ac_exec_ext in '' $ac_executable_extensions; do
-      ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext"
-      as_fn_executable_p "$ac_path_FGREP" || continue
-# Check for GNU ac_path_FGREP and select it if it is found.
-  # Check for GNU $ac_path_FGREP
-case `"$ac_path_FGREP" --version 2>&1` in
-*GNU*)
-  ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;;
-*)

patch/flex-2.6.4.diff  view on Meta::CPAN

+  test -z "$as_dir" && as_dir=.
+    for ac_prog in sed gsed; do
+    for ac_exec_ext in '' $ac_executable_extensions; do
+      ac_path_SED="$as_dir/$ac_prog$ac_exec_ext"
+      as_fn_executable_p "$ac_path_SED" || continue
+# Check for GNU ac_path_SED and select it if it is found.
+  # Check for GNU $ac_path_SED
+case `"$ac_path_SED" --version 2>&1` in
+*GNU*)
+  ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;;
+*)

patch/flex-2.6.4.diff  view on Meta::CPAN

+  test -z "$as_dir" && as_dir=.
+    for ac_prog in fgrep; do
+    for ac_exec_ext in '' $ac_executable_extensions; do
+      ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext"
+      as_fn_executable_p "$ac_path_FGREP" || continue
+# Check for GNU ac_path_FGREP and select it if it is found.
+  # Check for GNU $ac_path_FGREP
+case `"$ac_path_FGREP" --version 2>&1` in
+*GNU*)
+  ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;;
+*)

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        'make install'
    ],
    alien_bin_requires => { %nonwin32 },
    meta_merge => {
        resources => {
            repository => "https://github.com/selectiveintellect/p5-alien-gputils",
            bugtracker => "https://github.com/selectiveintellect/p5-alien-gputils/issues",
        },
    },
);

$build->create_build_script;

 view release on metacpan or  search on metacpan

libsecp256k1/configure.ac  view on Meta::CPAN

    fi
    ;;
  no)
    ;;
  *)
    AC_MSG_ERROR([invalid assembly selection])
    ;;
  esac
fi

# Select assembly

libsecp256k1/configure.ac  view on Meta::CPAN

  enable_external_asm=yes
  ;;
no)
  ;;
*)
  AC_MSG_ERROR([invalid assembly selection])
  ;;
esac

if test x"$enable_external_asm" = x"yes"; then
  SECP_CONFIG_DEFINES="$SECP_CONFIG_DEFINES -DUSE_EXTERNAL_ASM=1"

 view release on metacpan or  search on metacpan

t/use.t  view on Meta::CPAN

my($wtr, $rdr, $err);
use Symbol 'gensym'; $err = gensym;
my $pid = open3($wtr, $rdr, $err,
	$p->pdf2json_path, "-help" );
# WARN: this could block --- I should use select() or IPC::Run3, but this may work for now
my $result = join "", <$err>;
waitpid( $pid, 0 );

like($result, qr/pdf2json version/, 'can run pdf2json');

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

libuv/test/test-loop-handles.c
libuv/test/test-loop-stop.c
libuv/test/test-loop-time.c
libuv/test/test-multiple-listen.c
libuv/test/test-mutexes.c
libuv/test/test-osx-select.c
libuv/test/test-pass-always.c
libuv/test/test-ping-pong.c
libuv/test/test-pipe-bind-error.c
libuv/test/test-pipe-close-stdout-read-stdin.c
libuv/test/test-pipe-connect-error.c

 view release on metacpan or  search on metacpan

inc/inc_IPC-Cmd/IPC/Cmd.pm  view on Meta::CPAN

                );

    ### use OUR stdin, not $kidin. Somehow,
    ### we never get the input.. so jump through
    ### some hoops to do it :(
    my $selector = IO::Select->new(
                        (IS_WIN32 ? \*STDERR : $kiderror), 
                        \*STDIN,   
                        (IS_WIN32 ? \*STDOUT : $kidout)     
                    );              

inc/inc_IPC-Cmd/IPC/Cmd.pm  view on Meta::CPAN

    $kidout->autoflush(1)   if UNIVERSAL::can($kidout,   'autoflush');
    $kiderror->autoflush(1) if UNIVERSAL::can($kiderror, 'autoflush');

    ### add an epxlicit break statement
    ### code courtesy of theorbtwo from #london.pm
    OUTER: while ( my @ready = $selector->can_read ) {

        for my $h ( @ready ) {
            my $buf;
            
            ### $len is the amount of bytes read

 view release on metacpan or  search on metacpan

lib/Align/Sequence.pm  view on Meta::CPAN

  my $Ycurrent = -1;
  my $Xtemp;
  my $Ytemp;
  
  my @L; # LCS
  my $R = 0;  # records the position of last selected symbol
  my $i;
  
  my $Pi;
  my $Pi1;
  

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

ck_retarget|||
ck_return|||
ck_rfun|||
ck_rvconst|||
ck_sassign|||
ck_select|||
ck_shift|||
ck_sort|||
ck_spair|||
ck_split|||
ck_subr|||

 view release on metacpan or  search on metacpan

lib/AlignDB/SQL.pm  view on Meta::CPAN

use YAML qw(Dump Load DumpFile LoadFile);
with Storage( 'format' => 'YAML' );

our $VERSION = '1.0.2';

has 'select'             => ( is => 'rw', isa => 'ArrayRef', default => sub { [] } );
has 'select_map'         => ( is => 'rw', isa => 'HashRef',  default => sub { {} } );
has 'select_map_reverse' => ( is => 'rw', isa => 'HashRef',  default => sub { {} } );
has 'from'               => ( is => 'rw', isa => 'ArrayRef', default => sub { [] } );
has 'joins'              => ( is => 'rw', isa => 'ArrayRef', default => sub { [] } );
has 'where'              => ( is => 'rw', isa => 'ArrayRef', default => sub { [] } );
has 'bind'               => ( is => 'rw', isa => 'ArrayRef', default => sub { [] } );
has 'limit'              => ( is => 'rw', isa => 'Int' );

lib/AlignDB/SQL.pm  view on Meta::CPAN

has 'where_values'       => ( is => 'rw', isa => 'HashRef',  default => sub { {} } );
has '_sql'    => ( is => 'rw', isa => 'Str',     default => '' );
has 'indent'  => ( is => 'rw', isa => 'Str',     default => ' ' x 2 );
has 'replace' => ( is => 'rw', isa => 'HashRef', default => sub { {} } );

sub add_select {
    my $self = shift;
    my ( $term, $col ) = @_;
    $col ||= $term;
    push @{ $self->select }, $term;
    $self->select_map->{$term}        = $col;
    $self->select_map_reverse->{$col} = $term;
}

sub add_join {
    my $self = shift;
    my ( $table, $joins ) = @_;

lib/AlignDB/SQL.pm  view on Meta::CPAN

sub as_header {
    my $self = shift;

    my @terms;
    if ( @{ $self->select } ) {
        my %select_map = %{ $self->select_map };
        for my $term ( @{ $self->select } ) {
            if ( exists $select_map{$term} ) {
                my $alias = $select_map{$term};
                push @terms, $alias;
            }
            else {
                push @terms, $term;
            }

lib/AlignDB/SQL.pm  view on Meta::CPAN

    my $self = shift;

    my $indent = $self->indent;
    my $sql    = '';

    if ( @{ $self->select } ) {
        my %select_map = %{ $self->select_map };
        my @terms;
        for my $term ( @{ $self->select } ) {
            if ( exists $select_map{$term} ) {
                my $alias = $select_map{$term};

                # add_select( 'f.foo'    => 'foo' ) ===> f.foo
                # add_select( 'COUNT(*)' => 'count' ) ===> COUNT(*) count
                if ( $alias and $term =~ /(?:^|\.)\Q$alias\E$/ ) {
                    push @terms, $term;
                }
                else {
                    push @terms, "$term $alias";

lib/AlignDB/SQL.pm  view on Meta::CPAN

sub add_having {
    my $self = shift;
    my ( $col, $val ) = @_;

    if ( my $orig = $self->select_map_reverse->{$col} ) {
        $col = $orig;
    }

    my ( $term, $bind ) = $self->_mk_term( $col, $val );
    push @{ $self->{having} }, "($term)";

lib/AlignDB/SQL.pm  view on Meta::CPAN

AlignDB::SQL - An SQL statement generator.

=head1 SYNOPSIS

    my $sql = AlignDB::SQL->new();
    $sql->select([ 'id', 'name', 'bucket_id', 'note_id' ]);
    $sql->from([ 'foo' ]);
    $sql->add_where('name',      'fred');
    $sql->add_where('bucket_id', { op => '!=', value => 47 });
    $sql->add_where('note_id',   \'IS NULL');
    $sql->limit(1);

    my $sth = $dbh->prepare($sql->as_sql);
    $sth->execute(@{ $sql->{bind} });
    my @values = $sth->selectrow_array();

    my $obj = SomeObject->new();
    $obj->set_columns(...);

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

inc/Capture/Tiny.pm  view on Meta::CPAN

  my ($which, $stash) = @_; # $which is "stdout" or "stderr"
  # setup pipes
  $stash->{$_}{$which} = IO::Handle->new for qw/tee reader/;
  pipe $stash->{reader}{$which}, $stash->{tee}{$which};
  # _debug( "# pipe for $which\: " .  _name($stash->{tee}{$which}) . " " . fileno( $stash->{tee}{$which} ) . " => " . _name($stash->{reader}{$which}) . " " . fileno( $stash->{reader}{$which}) . "\n" );
  select((select($stash->{tee}{$which}), $|=1)[0]); # autoflush
  # setup desired redirection for parent and child
  $stash->{new}{$which} = $stash->{tee}{$which};
  $stash->{child}{$which} = {
    stdin   => $stash->{reader}{$which},
    stdout  => $stash->{old}{$which},

 view release on metacpan or  search on metacpan

lib/CWB.pm  view on Meta::CPAN

B<list_attributes()> returns the names of all declared attributes. The
B<attribute()> method returns the type of the specified attribute, or an
undefined value if the attribute is not declared. I<$type> is one of
C<'p'> (B<positional>), C<'s'> (B<structural>), or C<'a'> (B<alignment>). 
Passing one of these type codes to B<list_attributes()> will return
attributes of the selected type only. 

=cut

sub list_attributes ( $;$ ) {
  my ($self, $type) = @_;

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

KEY_s|5.003007||Viu
KEY_say|5.009003||Viu
KEY_scalar|5.003007||Viu
KEY_seek|5.003007||Viu
KEY_seekdir|5.003007||Viu
KEY_select|5.003007||Viu
KEY_semctl|5.003007||Viu
KEY_semget|5.003007||Viu
KEY_semop|5.003007||Viu
KEY_send|5.003007||Viu
KEY_setgrent|5.003007||Viu

ppport.h  view on Meta::CPAN

PerlSock_listen|5.005000||Viu
PerlSock_ntohl|5.005000||Viu
PerlSock_ntohs|5.005000||Viu
PerlSock_recv|5.005000||Viu
PerlSock_recvfrom|5.005000||Viu
PerlSock_select|5.005000||Viu
PerlSock_send|5.005000||Viu
PerlSock_sendto|5.005000||Viu
PerlSock_sethostent|5.005000||Viu
PerlSock_setnetent|5.005000||Viu
PerlSock_setprotoent|5.005000||Viu

ppport.h  view on Meta::CPAN

seedDrand01|5.006000|5.006000|
SEEK_CUR|5.003007||Viu
seekdir|5.005000||Viu
SEEK_END|5.003007||Viu
SEEK_SET|5.003007||Viu
select|5.005000||Viu
Select_fd_set_t|5.003007|5.003007|Vn
SELECT_MIN_BITS|5.005003|5.005003|Vn
Semctl|5.004005||Viu
semun|5.006000||Viu
send|5.005000||Viu

 view release on metacpan or  search on metacpan

lib/Crypt/RSA/Key.pm  view on Meta::CPAN

        # Switch from Maurer prime to nbit prime, then add some more primality
        # testing.  This is faster and gives us a wider set of possible primes.

        # We really ought to consider the distribution.  See:
        # https://crocs.fi.muni.cz/_media/public/papers/usenixsec16_1mrsakeys_trfimu_201603.pdf
        # for comments on p/q selection.

        while (1) {
          my $p = random_nbit_prime($size);
          my $q = random_nbit_prime($size);
          $p = Math::BigInt->new("$p") unless ref($p) eq 'Math::BigInt';

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.003       2014-12-31 00:39:04-0600
    - add a role for Rlike data frames
          * support for methods: head(), tail(), subset()
    - use MooX::Traits to support loading roles easily
    - fix: select_rows() with no arguments should return an empty Data::Frame
    - bump PDL version to use its `unpdl()` method
    - Column::Helper now uses AUTOLOAD to make accessing columns easier in `subset()`

0.002       2014-12-25 03:34:04-0600
    - fix stringifiable length test

 view release on metacpan or  search on metacpan

inc/TestML/Runtime.pm  view on Meta::CPAN

    }
}

sub run_statement {
    my ($self, $statement) = @_;
    my $blocks = $self->select_blocks($statement->points || []);
    for my $block (@$blocks) {
        $self->function->setvar('Block', $block) if $block != 1;
        my $result = $self->run_expression($statement->expr);
        if (my $assert = $statement->assert) {
            $self->run_assertion($result, $assert);

inc/TestML/Runtime.pm  view on Meta::CPAN

    }
    $value =~ s/^\\//gm;
    return TestML::Str->new(value => $value);
}

sub select_blocks {
    my ($self, $wanted) = @_;
    return [1] unless @$wanted;
    my $selected = [];

    OUTER: for my $block (@{$self->function->data}) {
        my %points = %{$block->points};
        next if exists $points{SKIP};
        if (exists $points{ONLY}) {
            for my $point (@$wanted) {
                return [] unless exists $points{$point};
            }
            $selected = [$block];
            last;
        }
        for my $point (@$wanted) {
            next OUTER unless exists $points{$point};
        }
        push @$selected, $block;
        last if exists $points{LAST};
    }
    return $selected;
}

sub compile_testml {
    my ($self) = @_;

 view release on metacpan or  search on metacpan

inc/Capture/Tiny.pm  view on Meta::CPAN

  my ($which, $stash) = @_; # $which is "stdout" or "stderr"
  # setup pipes
  $stash->{$_}{$which} = IO::Handle->new for qw/tee reader/;
  pipe $stash->{reader}{$which}, $stash->{tee}{$which};
  # _debug( "# pipe for $which\: " .  _name($stash->{tee}{$which}) . " " . fileno( $stash->{tee}{$which} ) . " => " . _name($stash->{reader}{$which}) . " " . fileno( $stash->{reader}{$which}) . "\n" );
  select((select($stash->{tee}{$which}), $|=1)[0]); # autoflush
  # setup desired redirection for parent and child
  $stash->{new}{$which} = $stash->{tee}{$which};
  $stash->{child}{$which} = {
    stdin   => $stash->{reader}{$which},
    stdout  => $stash->{old}{$which},

 view release on metacpan or  search on metacpan

lib/NewRelic/Agent/FFI/Procedural.pm  view on Meta::CPAN

 my $seg = newrelic_segment_datastore_begin $tx, $parent_seg, $table, $operation, $sql, $sql_trace_rollup_name;
 my $seg = newrelic_segment_datastore_begin $tx, $parent_seg, $table, $operation, $sql, $sql_trace_rollup_name, $sql_obfuscator;

Begins a new datastore segment.  C<$parent_seg> is a parent segment id (C<undef> no parent).  C<$operation> should be
one of C<select>, C<insert>, C<update> or C<delete>.

If you want to provide your own obfuscator, you need to pass in the address of a C function.  To do that from Perl you can
create a closure with L<FFI::Platypus>, like so:

 use 5.010;

 view release on metacpan or  search on metacpan

lib/Sex.pm  view on Meta::CPAN

    }

    while( my($chromo, $rna) = each %zygote ) {
        $call_sym_table->{$chromo} = $rna->[rand @$rna];
        print $Grunts[rand @Grunts], "\n";
        #select(undef, undef, undef, 0.45);
    }

    # push @{$caller.'::ISA'}, @modules;

    print "\n";