Ynon Perek ynonp

## 05 Critter.pm
# Critter.pm
#
package Critter;
use strict;
use warnings;
use v5.14;

sub new {
  my ( $cls, $name, $age ) = @_;

## demo1.pl
use v5.20;
use feature 'signatures';
no warnings 'experimental::signatures';

sub plus($x, $y) {
  $x + $y
}

say plus(2,3);

## demo.html
<!DOCTYPE html>
<html>
  <head>
    <meta charset="utf-8" />
    <title>index</title>
  </head>
  <body>
    <p></p>

    <script src="http://code.jquery.com/jquery-1.11.0.min.js"></script>

## lab1.scss
@mixin abs-pos($top:auto,$left:auto,$bottom:auto,$right:auto) {
  position:absolute;
  top: #{$top}px;
  bottom:$bottom;
  left:$left;
  right:$right;
}

.test {
  @include abs-pos($top:10,$left:10);

## HelloWorld.pro
#-------------------------------------------------
#
# Project created by QtCreator 2014-08-26T10:07:27
#
#-------------------------------------------------

QT       += core gui

greaterThan(QT_MAJOR_VERSION, 4): QT += widgets

## anagrams.pl
use strict;
use warnings;
use v5.18;
my %anagrams;

sub anagram {
	my ( $word ) = @_;
	my @letters = sort split //, $word;
	$anagrams{"@letters"};
}

## Critter.pm
package Critter;
use strict;
use warnings;
use v5.18;

# Critter
our $VERSION = '1.00';
#
# Inheritance
# our @ISA = qw/Animal/;

## directory structure for perl app
myapp/
├── lib
│   ├── File
│   │   └── Slurp.pm
│   ├── MyModule.pm
│   └── Try
│       └── Tiny.pm
└── run.pl

3 directories, 4 files

## starter-lab-layouts.cpp
#include "mainwindow.h"
#include <QApplication>
#include <QtWidgets>

void createFirstRow(QVBoxLayout *top)
{
    QGroupBox *box = new QGroupBox();
    QPushButton *b1 = new QPushButton("One", box);
    QPushButton *b2 = new QPushButton("Two", box);
    QPushButton *b3 = new QPushButton("Three", box);

## mojolicious-url-shortener.pl
#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::Util qw/b64_encode b64_decode/;
use DBI;


my $database = 'tinyurl.db';
my $data_source = "dbi:SQLite:dbname=$database";
my $dbh = DBI->connect(
	$data_source,
	# Critter.pm
	#
	package Critter;
	use strict;
	use warnings;
	use v5.14;

	sub new {
	my ( $cls, $name, $age ) = @_;
	use v5.20;
	use feature 'signatures';
	no warnings 'experimental::signatures';

	sub plus($x, $y) {
	$x + $y
	}

	say plus(2,3);
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8" />
	<title>index</title>
	</head>
	<body>
	<p></p>

	<script src="http://code.jquery.com/jquery-1.11.0.min.js"></script>
	@mixin abs-pos($top:auto,$left:auto,$bottom:auto,$right:auto) {
	position:absolute;
	top: #{$top}px;
	bottom:$bottom;
	left:$left;
	right:$right;
	}

	.test {
	@include abs-pos($top:10,$left:10);
	#-------------------------------------------------
	#
	# Project created by QtCreator 2014-08-26T10:07:27
	#
	#-------------------------------------------------

	QT += core gui

	greaterThan(QT_MAJOR_VERSION, 4): QT += widgets
	use strict;
	use warnings;
	use v5.18;
	my %anagrams;

	sub anagram {
	my ( $word ) = @_;
	my @letters = sort split //, $word;
	$anagrams{"@letters"};
	}
	myapp/
	├── lib
	│ ├── File
	│ │ └── Slurp.pm
	│ ├── MyModule.pm
	│ └── Try
	│ └── Tiny.pm
	└── run.pl

	3 directories, 4 files
	#include "mainwindow.h"
	#include <QApplication>
	#include <QtWidgets>

	void createFirstRow(QVBoxLayout *top)
	{
	QGroupBox *box = new QGroupBox();
	QPushButton *b1 = new QPushButton("One", box);
	QPushButton *b2 = new QPushButton("Two", box);
	QPushButton *b3 = new QPushButton("Three", box);
	#!/usr/bin/env perl
	use Mojolicious::Lite;
	use Mojo::Util qw/b64_encode b64_decode/;
	use DBI;


	my $database = 'tinyurl.db';
	my $data_source = "dbi:SQLite:dbname=$database";
	my $dbh = DBI->connect(
	$data_source,