logie17

%filter_from_provides /.*/d
%filter_from_requires /^perl.*/d
%filter_setup

%global runtime perl520
%global perl520_rootdir /opt/rock/runtime/%{runtime}

%global privlib %{perl520_rootdir}%{_prefix}/share/perl5
%global archlib %{perl520_rootdir}%{_prefix}/lib/perl5

logie17

@belden just learned that tie is literally Magic. Perl API ftw

logie17

#! /usr/bin/env python                                                                                                                                                                                                 

import urllib, cgi, random, string

cgi_params = cgi.FieldStorage()

lat = cgi_params.getvalue('lat') or '42.3265152'
lon = cgi_params.getvalue('lon') or '-122.87559490000001'
unit = cgi_params.getvalue('unit') or 0
lg = cgi_params.getvalue('lg') or 'english'

logie17

use Benchmark qw{cmpthese};

sub rekey1(\%\%) {
  my ($key_map, $old_hash) = @_;
return
  map { exists $key_map{$_}
    ? ( $key_map{$_} => $old_hash{$_} )
    : ( $_ => $old_hash{$_} )
  }
  keys %old_hash;

logie17

[9:44]:rake           
Building Charmonizer Tests
cd /Users/loganbell/work/lucy-git/charmonizer
make CC=clang DEFS=-fno-common -DFCRUBY -fno-strict-aliasing -pipe -fstack-protector -std=gnu99 -D_GNU_SOURCE -I/Users/loganbell/work/lucy-git/clownfish/runtime/ruby tests
make: Nothing to be done for `tests'.
cd /Users/loganbell/work/lucy-git/clownfish/runtime/ruby
Building Clownfish
cd ../../compiler/ruby

Building Clownfish compiler... 

logie17

#! /usr/bin/perl

package Foo;
use Moose;
use Test::More;
has foo => ( is => 'rw');
has bar => ( is => 'ro', writer => 'bar' );
has baz => ( is => 'ro', writer => 'set_baz');

my $obj = Foo->new;

logie17

require 'formula'

class Vim < Formula
  homepage 'http://www.vim.org/'
  url 'https://vim.googlecode.com/hg/', :tag => 'v7-3-712'
  version '7.3.712'

  head 'https://vim.googlecode.com/hg/'

  def install

logie17

make: Nothing to be done for `tests'.
cc -I../core -Ixs -I. -Iautogen/include -I/Users/loganbell/perl5/perlbrew/perls/perl-5.16.0/lib/5.16.0/darwin-2level/CORE -std=gnu99 -D_GNU_SOURCE -fvisibility=hidden -c -fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -O3 -o ../core/Clownfish/ByteBuf.o ../core/Clownfish/ByteBuf.c
In file included from ../core/Clownfish/ByteBuf.c:27:
In file included from autogen/include/Clownfish/VTable.h:36:
autogen/include/parcel.h:183:5: error: use of undeclared identifier 'lucy_VTable'
    cfish_VTable **parent_ptr
    ^
autogen/include/parcel.h:104:22: note: expanded from macro 'cfish_VTable'
#define cfish_VTable lucy_VTable
                     ^

logie17

using src/Charmonizer/Test/TestLargeFiles.c as example:

Line:138
    if ( -1 ==  remove("_charm_large_file_test") ) {
      Util_warn("Error removing file %s\n", strerror(errno));     
    }

logie17

package Shutterstock::Si::Schema::Result::Message;

use Shutterstock::Si::Schema::Candy;

primary_column id => { data_type => 'int', is_auto_increment => 1, extra => { unsigned => 1 } };

column message => { data_type => 'text' };
column created => { data_type => 'datetime', set_on_create => 1, };

#belongs_to ( channel => 'Shutterstock::Si::Schema::Result::Channel', 'channel_id' );