view release on metacpan or  search on metacpan

lib/App/ZFSCurses/Text.pm  view on Meta::CPAN

=head2 title_snapshots

Return the text title in the datasets view.

=cut

sub title_snapshots {
    return title() . ': Snapshots';
}

=head2 top_label_datasets

Return the top label text in the dataset screen.

=cut

sub top_label_datasets {
    return "List of all ZFS datasets found on your system.\n"
      . "Please select a dataset:";
}

=head2 top_label_snapshots

Return the top label text in the snapshot screen.

=cut

sub top_label_snapshots {
    return "List of all ZFS snapshots found on your system.\n"
      . "Please select a snapshot:";
}

=head2 top_label_properties

Return the top label text in the properties screen.

=cut

sub top_label_properties {
    my $self   = shift;
    my $type   = shift;
    my $value  = shift;

    my $text = "List of ZFS properties for the \"$value\" $type.";
    $text .= "\nPlease select a property to change:" if $type eq 'dataset';

    return $text;
}

=head2 footer

Return the footer text. This method expects (sometimes) a text about the F1
key.

=cut

sub footer {
    my $self = shift;
    my $f1   = shift;
    my $help =
        "[Up/Down] Move cursor up/down. "
      . "[Enter/Space] Validate. "
      . "[Tab] Change focus. "
      . "\n[Ctrl+q] Quit. ";
    if ( defined $f1 ) { $help .= "$f1"; }
    return $help;
}

=head2 exit_dialog

Return the exit dialog text.

=cut

sub exit_dialog {
    return 'Quit ZFScurses?';
}

=head2 destroy_confirmation

Return the text when destroying an object.

=cut

sub destroy_confirmation {
    my $self     = shift;
    my $type     = shift;
    my $value    = shift;
    return "WARNING! YOU ARE ABOUT TO DESTROY DATA!"
      . "\n\n"
      . "Do you really want to destroy the $type\n\"$value\"?";
}

=head2 f1_help

Return the text about the F1 key. This method is given to the footer method
depending on the screen displayed to the user.

=cut

sub f1_help {
    return "[F1] Show help for selected property.";
}

=head2 select_property

Return the text when a property is not selected.

=cut

sub select_property {
    return 'Please select a property!';
}

=head2 select_snapshot

Return the text when a snapshot is not selected.

=cut

sub select_snapshot {