Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Cascade	[ DIR ]	drwxr-xr-x
Relationship	[ DIR ]	drwxr-xr-x
SQL	[ DIR ]	drwxr-xr-x
Search	[ DIR ]	drwxr-xr-x
Test	[ DIR ]	drwxr-xr-x
Attribute.pm	685 B	-rw-r--r--
Column.pm	1.36 KB	-rw-r--r--
ColumnGrouper.pm	3.61 KB	-rw-r--r--
Iterator.pm	2.23 KB	-rw-r--r--
Query.pm	4.17 KB	-rw-r--r--
Relationship.pm	4.02 KB	-rw-r--r--

Code Editor : Column.pm

package Class::DBI::Column;

=head1 NAME

Class::DBI::Column - A column in a table

=head1 SYNOPSIS

my $column = Class::DBI::Column->new($name);

my $name  = $column->name;

my @groups = $column->groups;
	my $pri_col = $colg->primary;

if ($column->in_database) { ... }

=head1 DESCRIPTION

Each Class::DBI class maintains a list of its columns as class data.
This provides an interface to those columns. You probably shouldn't be
dealing with this directly.

=head1 METHODS

=cut

use strict;
use base 'Class::Accessor::Fast';
use Carp;

__PACKAGE__->mk_accessors(
	qw/name accessor mutator placeholder is_constrained/
);

use overload
	'""'     => sub { shift->name_lc },
	fallback => 1;

=head2 new

my $column = Class::DBI::Column->new($column)

A new object for this column.

=cut

sub new {
	my $class = shift;
	my $name  = shift or croak "Column needs a name";
	my $opt   = shift || {};
	return $class->SUPER::new(
		{
			name        => $name,
			accessor    => $name,
			mutator     => $name,
			_groups     => {},
			placeholder => '?',
			%$opt,
		}
	);
}

sub name_lc { lc shift->name }

sub add_group {
	my ($self, $group) = @_;
	$self->{_groups}->{$group} = 1;
}

sub groups {
	my $self   = shift;
	my %groups = %{ $self->{_groups} };
	delete $groups{All} if keys %groups > 1;
	return keys %groups;
}

sub in_database {
	return !scalar grep $_ eq "TEMP", shift->groups;
}

${this.title}

Code Editor : Column.pm