Skip to content

Instantly share code, notes, and snippets.

View blabos-zz's full-sized avatar

Blabos de Blebe blabos-zz

View GitHub Profile
package Parent;
use Moo;
has 'parent' => ( 'is' => 'ro' );
sub core_attrs {
my ($self) = @_;
my $specs = 'Moo'->_constructor_maker_for('Parent')->all_attribute_specs;
@blabos-zz
blabos-zz / perl-version.sh
Last active February 15, 2020 18:51
Checking version of installed perl
user@host:$ perl -v
This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi
(with 67 registered patches, see perl -V for more detail)
...
user@host:$
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
main();
##############################################################################
sub main {
my @schedules = _init();
@blabos-zz
blabos-zz / slugify
Created February 27, 2015 22:58
Perl Slugify
#!/usr/bin/env perl
use strict;
use warnings;
use Text::Iconv;
my $converter = Text::Iconv->new('utf-8', 'ASCII//TRANSLIT');
my $separator = '-';
my $slug = lc $converter->convert('Coração de Anão');
name = Business-BR-Boleto-Renderer-PDF
author = Blabos de Blebe <blabos@cpan.org>
license = Perl_5
copyright_holder = Blabos de Blebe
copyright_year = 2014
version = 0.000001
;[Prereqs::FromCPANfile]
[AutoPrereqs]
package Role;
use Moo::Role;
requires qw{ foo bar };
1;
###
[user@host]$ vmware-vdiskmanager -r <path_to_your_multiple_vmdk_files>/myfile.vmdk -t 2 mysinglefile.vmdk
...
[user@host]$ qemu-img convert -O raw myfile.vmdk myfile.bin
...
[user@host]$ VBoxManage convertfromraw myfile.bin myfile.vdi –variant standard
<!DOCTYPE html>
<html>
<head>
<title>Hello World</title>
<script>
document.addEventListener("DOMContentLoaded", function() {
var button;
button = document.getElementById("blue");
button.onclick = function() {
change_color('blue');
@blabos-zz
blabos-zz / diffs.pl
Created September 18, 2013 20:55
diffs
#!/usr/bin/env perl
use strict;
use warnings;
use 5.018;
use Data::Dumper;
use Const::Fast;
const my $N => 1000;
@blabos-zz
blabos-zz / user_insertion.pl
Created September 15, 2013 22:30
user insertion
use utf8;
use strict;
use warnings;
package App::Schema::ResultSet::User;
use Moose;
use namespace::autoclean;
use Try::Catch;