dbic/lib/Reblog.pm

package Reblog;
use Moose;

extends 'Frey';
with 'Frey::Web';
with 'Frey::Config';
#with 'Frey::Storage';

use lib 'lib';
use Reblog::Schema;

has page => (
        is => 'rw',
        isa => 'Int',
        required => 1,
        default => 1,
);

sub as_sponge {
        my ($self) = @_;

        my $reblog = Reblog::Schema->connect(
                "DBI:mysql:database=reblog;host=127.0.0.1;port=13306", '', ''
        );

        my @feeds = $reblog->resultset('Feeds')->search(
                undef,
                { page => $self->page }
        );

        my @rows;
        my @name;
        my $name_pos;

        foreach my $feed ( @feeds ) {
                warn "# feed ",$self->dump( $feed );

                my %row = $feed->get_columns;

                my @row;

                foreach my $name ( $feed->columns ) {
                        if ( ! defined $name_pos->{$name} ) {
                                push @name, $name;
                                $name_pos->{$name} = $#name;
                                warn "## name_pos: ", $self->dump( $name_pos ) if $self->debug;
                        }

                        my $pos = $name_pos->{$name};
                        $row[$pos] = $row{$name};
                }

                push @rows, [ @row ];
        }

        return {
                rows => \@rows,
                NAME => \@name,
        }
}

1;
1	dpavlin	1001	package Reblog;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			with 'Frey::Config';
7			#with 'Frey::Storage';
8
9			use lib 'lib';
10			use Reblog::Schema;
11
12			has page => (
13			is => 'rw',
14			isa => 'Int',
15			required => 1,
16			default => 1,
17			);
18
19			sub as_sponge {
20			my ($self) = @_;
21
22			my $reblog = Reblog::Schema->connect(
23			"DBI:mysql:database=reblog;host=127.0.0.1;port=13306", '', ''
24			);
25
26			my @feeds = $reblog->resultset('Feeds')->search(
27			undef,
28			{ page => $self->page }
29			);
30
31			my @rows;
32			my @name;
33			my $name_pos;
34
35			foreach my $feed ( @feeds ) {
36	dpavlin	1004	warn "# feed ",$self->dump( $feed );
37
38	dpavlin	1001	my %row = $feed->get_columns;
39
40			my @row;
41
42	dpavlin	1004	foreach my $name ( $feed->columns ) {
43	dpavlin	1001	if ( ! defined $name_pos->{$name} ) {
44			push @name, $name;
45			$name_pos->{$name} = $#name;
46			warn "## name_pos: ", $self->dump( $name_pos ) if $self->debug;
47			}
48
49			my $pos = $name_pos->{$name};
50			$row[$pos] = $row{$name};
51			}
52
53			push @rows, [ @row ];
54			}
55
56			return {
57			rows => \@rows,
58			NAME => \@name,
59			}
60			}
61
62			1;