Added ->relationships and ->relationship_info from castaway

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Relationship.pm

diff --git a/lib/DBIx/Class/Relationship.pm b/lib/DBIx/Class/Relationship.pm
index 3a68ee2..71c0004 100644 (file)
--- a/lib/DBIx/Class/Relationship.pm
+++ b/lib/DBIx/Class/Relationship.pm
@@ -15,6 +15,21 @@ __PACKAGE__->load_own_components(qw/
 
 __PACKAGE__->mk_classdata('_relationships', { } );
 
+sub relationships
+{
+    my $self = shift;
+
+    return keys %{$self->_relationships};
+}
+
+sub relationship_info
+{
+    my $self = shift;
+    my ($rel) = @_;
+
+    return $self->_relationships->{$rel};
+}
+
 =head1 NAME 
 
 DBIx::Class::Relationship - Inter-table relationships