1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
package Graph::MoreUtils::Line::SelfLoopVertex;
use strict;
use warnings;
# ABSTRACT: Marker for artificial self-loops
our $VERSION = '0.3.0'; # VERSION
sub new
{
my( $class ) = @_;
return bless {}, $class;
}
1;
__END__
=pod
=head1 NAME
Graph::MoreUtils::Line::SelfLoopVertex - marker for artificial self-loops
=head1 DESCRIPTION
With C<loop_end_vertices> option L<Graph::Line> adds self-loops on pendant vertices thus preserving them from getting "lost".
Instances of Graph::MoreUtils::Line::SelfLoopVertex are used to represent the artificial self-loops in the resulting line graphs.
=head1 SEE ALSO
perl(1)
=head1 AUTHORS
Andrius Merkys, E<lt>merkys@cpan.orgE<gt>
=cut
|
