Graph::Maker::Bipartite3pm

Creates a bipartite graph with the given distributions. A bipartite graph is one in which it can be decomposed into two unique sets with edges only between these sets. If the graph is directed then edges are added in both directions to create an undirected graph.

        use strict;
        use warnings;
        use Graph;
        use Graph::Maker;
        use Graph::Maker::Bipartite;
        my (@a, @b);
        @a = (2); @b = (1,1);
        $g = new Graph::Maker('bipartite', N1 => 5, N2 => 4, seq1 => [@a], seq2 => [@b], undirected => 1);
        @a = (2,3,1,2,1); @b = (2,2,1,3,1);
        $g2 = new Graph::Maker('bipartite', seq1 => [@a], seq2 => [@b]);
        @a = (2,3,1,2,1); @b = (2,2,1,3,1);
        $g3 = new Graph::Maker('bipartite', seq1 => [@a], seq2 => [@b], strict => 1, undirected => 1);
        # This distribution cannot be satisfied and the resulting graph will be incorrect
        @a = (2); @b = (2);
        eval {
                $g = new Graph::Maker('bipartite', N1 => 5, N2 => 4, seq1 => [@a], seq2 => [@b], undirected => 1);
        };
        # $@ has a message informing the graph could not be constructed
        # work with the graph