Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
01-columns.t	4.29 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
02-Film.t	12.09 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
03-subclassing.t	699 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
04-lazy.t	4.36 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
06-hasa.t	3.88 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
08-inheritcols.t	560 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
09-has_many.t	3.09 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
11-triggers.t	1.58 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
12-filter.t	3.63 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
13-constraint.t	3.17 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
14-might_have.t	1.91 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
15-accessor.t	7.29 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
16-reserved.t	526 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
18-has_a.t	6.19 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
19-set_sql.t	2.92 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
21-iterator.t	2.54 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
22-deflate_order.t	568 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
22-self_referential.t	476 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
23-cascade.t	1.79 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
24-meta_info.t	1.78 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
26-mutator.t	603 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
30-pager.t	869 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
68-inflate_has_a.t	1.46 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
70_implicit_inflate.t	1.06 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
71_column_object.t	1.03 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
98-failure.t	1.49 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
DeepAbstractSearch	-	drwxr-xr-x	2022-02-23 11:30:44	Del
abstract	-	drwxr-xr-x	2022-02-23 11:30:44	Del
columns_as_hashes.t	2.28 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
columns_dont_override_custom_accessors.t	710 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
construct.t	801 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
copy.t	938 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
early_column_heisenbug.t	553 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
has_many_loads_foreign_class.t	744 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
hasa_without_loading.t	463 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
max_min_value_of.t	536 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
mk_group_accessors.t	1.14 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
multi_column_set.t	454 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
object_cache.t	1.51 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
retrieve_from_sql_with_limit.t	503 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
set_to_undef.t	754 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
set_vs_DateTime.t	635 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
sweet	-	drwxr-xr-x	2022-02-23 11:30:44	Del
testlib	-	drwxr-xr-x	2022-02-23 11:30:44	Del

Editing: construct.t (801 B)

use strict;
use warnings;
use Test::More;

INIT {
    use lib 't/cdbi/testlib';
    use Film;
}

{
    Film->insert({
        Title     => "Breaking the Waves",
        Director  => 'Lars von Trier',
        Rating    => 'R'
    });

    my $film = Film->construct({
        Title     => "Breaking the Waves",
        Director  => 'Lars von Trier',
    });

    isa_ok $film, "Film";
    is $film->title,    "Breaking the Waves";
    is $film->director, "Lars von Trier";
    is $film->rating,   "R",
        "constructed objects can get missing data from the db";
}

{
    package Foo;
    use base qw(Film);
    Foo->columns( TEMP => qw(temp_thing) );
    my $film = Foo->construct({
        temp_thing  => 23
    });

    ::is $film->temp_thing, 23, "construct sets temp columns";
}

done_testing;