Ovid

#!/usr/bin/env perl

use autodie ':all';
use Test::Most;
use FindBin;
use Veure::Config 'config';
use File::Spec::Functions 'catfile';
use Capture::Tiny 'capture';

bail_on_fail;

Ovid

#!/usr/bin/env perl

# vim: filetype=perl

use 5.18.0;
use lib qw{lib t/lib t/tests};
use warnings;
use autodie ':all';
use Capture::Tiny 'capture';
use Perl6::Junction 'any';

Ovid

#!/usr/bin/env perl

use warnings;
use 5.18.0;
use Term::ReadLine;
use Term::ReadKey;
use Try::Tiny;
use Text::Table;
use Term::ANSIColor;
use DBI;

Ovid

# a rewrite of http://blogs.perl.org/users/ovid/2016/01/a-naive-sql-shell.html in Perl 6
use v6;
use DBIish;
use Linenoise;
use Text::Table::Simple;

my constant HIST-FILE = '.myhist';
my constant HIST-LEN  = 100;
my constant ROW-LIMIT = 100;

Ovid

# per https://perso.ens-lyon.fr/jean-michel.muller/chapitre1.pdf (page 8), the
# following should approach the limit of 6, but all floating point implementations
# go crazy and approach a limit of 100. I wrote it in Perl 6 using Real and sure enough,
# it approaches 6 before going crazy and approaching 100. But when I switch from Real to
# Rat, I get "Type check failed in assignment to $w; expected Rat but got Num" after
# 25 iterations
# This is Rakudo version 2015.12-307-gd68c304 built on MoarVM version 2016.01
# implementing Perl 6.c.
# https://perso.ens-lyon.fr/jean-michel.muller/chapitre1.pdf

Ovid

#!/usr/bin/env perl

use 5.24.0;
use warnings;
use Term::ANSIColor;
chomp( my @branches
      = qx/git show -s --pretty='%cn|%ci %D' \$(git rev-parse --branches --remotes)/
);

my %branches_for;

Ovid

package main

// newton's method for calculating square roots

import (
	"fmt"
	"math"
)

func Sqrt(x float64) float64 {

Ovid

package main

import (
        "io"
        "os"
        "strings"
)

type rot13Reader struct {
        reader io.Reader

Ovid

#!/usr/bin/env perl

use Modern::Perl;
use Net::Twitter;
use Config::Tiny;
use File::HomeDir;
use utf8::all;
use Text::Wrap;
use Term::ANSIColor;
use autodie ':all';

Ovid

package Ovids::Debugger;

# vim: syntax=perl

=head1 NAME

.perldb - Customize your Perl debugger

=head1 USAGE