4 |
use strict; |
use strict; |
5 |
use warnings; |
use warnings; |
6 |
|
|
7 |
our $VERSION = '0.06_1'; |
our $VERSION = '0.06'; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
951 |
}; |
}; |
952 |
|
|
953 |
if ($self->{create}) { |
if ($self->{create}) { |
954 |
eval { |
if (! eval { $self->name } || $@) { |
|
$self->name; |
|
|
}; |
|
|
if ($@) { |
|
955 |
my $name = $1 if ($self->{url} =~ m#/node/([^/]+)/*#); |
my $name = $1 if ($self->{url} =~ m#/node/([^/]+)/*#); |
956 |
croak "can't find node name in '$self->{url}'" unless ($name); |
croak "can't find node name in '$self->{url}'" unless ($name); |
957 |
my $label = $self->{label} || $name; |
my $label = $self->{label} || $name; |